Bonjour à tous !
j'ai besoin de votre aide, c'est assez urgent. Pour mon stage, je fais un fichier de suivi de frais sur excel. J'ai fait quelques macros mais très basiques. J'ai besoin d'en faire une plus compliquée qui recquiert les compétences d'un connaisseur !
J'explique mon problème:
Je veux, sur ma feuille "frais généraux", sélectionner la zone (B17;I104)
Pour cette zone, à chaque fois que dans la colonne I, la cellule a pour valeur "n" ou "N", la ligne correspondante à cette cellule soit copiée et collée sur la feuille intitulée "facture à transmettre".
ensuite, sur ma feuille "frais de m²", sélectionner la zone (B17;I70)
Pour cette zone, à chaque fois que dans la colonne I, la cellule a pour valeur "n" ou "N", la ligne correspondante à cette cellule soit copiée et collée sur la feuille intitulée "facture à transmettre".
Le but étant que toutes les lignes des mes feuilles "frais de m²" et "frais généraux" contenant une cellule avec la valeur n ou N soient listée dans cette feuille "facture à transmettre" et que cette liste puisse être mise à jour régulièrement.
J'espère avoir été claire dans mon explication !
Je remercie infiniment celui qui me trouve cette macro parce que je sui trop nulle pour faire ca !!! lol

Et non.
Ce site ne propose pas de solutions toutes faites. lol ou pas

Il va te valoir le faire toi-même.

Voici un peu d'aide :
En fait, voici ce que tu veux faire, sans le savoir

• Parcourir cellule par cellule la zone I17 à I104 de telle feuille.
• Pour chacune de ces cellules, si la valeur en majuscule est "N" copier la zone B-I de la ligne correspondante vers une zone (encore non-spécifiée) d'une autre feuille.

Alors encore un peu d'aide :

• "telle zone de telle feuille" se programme comme suit :

• Pour parcourir une zone :

• Mettre en majuscule

• Copier une zone vers une autre :

C'est à toi.
Si ça marche publie-le ici, on en sera content
Si ça ne marche pas, publie-le ici, on tachera de le corriger ensemble.

C'est gentil de m'aider mais je suis un cas desespéré: j'ai fait ca:

Sub essai()
'
Dim c As Range
For Each c In Sheets("frais généraux" ).Range(I17, I104)
If cell.Value = "n" Or "N" Then
Row.Copy Destination:=Sheets("facture à transmettre" )
End If
Next
'
End Sub

Quand je fais ca, ca me met débogage et surligne "For Each c In Sheets("frais généraux" ).Range(I17, I104)" en jaune ...
Je pense que j'ai merdé...

j'ai trouvé une erreur
je pense qu'il y en a une autre ca marche toujours pa
Sub essai()
'
Dim c As Range
For Each c In Sheets("frais généraux" ).Range("I17:I104" )
If cell.Value = "n" Or "N" Then (cette ligne est en jaune)
Rows("B:I" ).Copy Destination:=Sheets("facture à transmettre" )
End If
Next
'
End Sub

Y a un début avec pas mal d'erreur de synthaxe.

Il y a une erreur soit dans le type de c, soit ailleur mais ca reste un peu compliqué pour ton besoin.

Un if a besoin de conditions, c-a-d séparé par un signe = ou renvoyant une valeur booléenne. Quand tu met plusieurs conditions, ils faut que celle ci soit complète.

Mais zeb t'as donné la fonction Ucase()

La destination de la fonction copy est une plage de donnée dans un onglet là tu n'as mis que l'onglet.

PS : Met les balises code

Salut
Merci pour ton aide. Je me doutais bien que ce que j'avais fais était faux: j'y connais pas grand chose !
Bon j'ai fait comme tu m'a dit je sais pas si j'ai tout bien placé mais ca marche toujours pas...

Comprends tu où est le problème? En tout cas même si ca marche pas j'ai l'impression de mieux comprendre.. merci 1000 fois...

Je reprends ton premier exemple et je mélange avec le second :

As-tu mis l'Option Explicit ? (Voir l'aide pour savoir pourquoi) Si non, fais-le !

Ligne 3 et 4, tu déclares et utilise c.
Ligne 5, tu utilises cell. C'est quoi ce cell ?

Bon ben je laisse tomber... rien ne marche... merci kan même d'avoir essayer de m'aider !

Je rebondi sur ce message car la demande d'origine correspond assez à une problématique que j'aborde...
Bouclage sur une feuille par rapport à des conditions, et action en fonction des éléments rencontrés...

Mon objectif est de parcourir une table à la struture définie telle que :
Ligne = Département ( 1 département par ligne)
Les entêtes de colonne sont doubles
Colonne (ligne 1) = Période(1 mois)
Colonne (ligne 2) = Pays ( 1 Pays par colonne)

L'année est référencé dans une cellule isolée au dessus de la table.

Les données de la table sont des commentaires.(string)

Ainsi la cellule de donnée la plus en haut à gauche de la table correspond au croisement de références suivant =>
Année "A", Période "P", Pays "C", Département "D" => Commentaire

Au total, j'ai environ 1200 commentaires potentiels correspondant à autant de croisement de référence.

Mon objectif ( La macro) :

Je souhaite parcourir chacune des cellules du tableau
et lorsquelle est renseigné générer une concatenation telle que :
Concatener("A" - "P" - "C" - "D" - "Commentaire" )
et envoyer ce résultat sur une feuille de synthèse. Cellule 1 jusqu'à Cellule "N"
Comme la table est figé, j'imagine utiliser le nomage de zone pour périmétrer le "scan du tableau".

L'approche TCD à été tenté mais n'a pas convaincu à mon grand désespoir )
( javais formatté ma table source comme une liste à plat et hop le tour était joué.)

Il faut donc que je macrote...

Pouvez vous m'aider à commencer ce traitement ?
Je connais le principe des boucle ou des fonctions conditionnelle mais j'avoue avoir du mal à démarrer ma macro...


Comment définir les bonnes déclarations en début de fonction ?
Comment tester les celulles de la table et effectuer la concaténation ?
Comment coller le résultat sur un autre feuille descendant d'une cellule après chaque coller ?



Si vous pouviez juste me mettre sur la piste...
Merci d'avance !

Je n'ai rien compris à l'organisation de tes données !

Effectivement, ca commence mal

Je vais essayer d'être plus clair :
Voici une représentation de la table que je souhaite scanner via la macro :

Année(applicable à toute la table)

Mois1 Mois1 MoisN...
Pays1 Pays2
Service1 "Commentaire" "Commentaire"

Service2 "Commentaire" "Commentaire"

Service N
...

L'idée, c'est de "checker" chaque cellule commentaire et quand la cellule n'est pas vide, de recopier sous un formalisme particulier ( Concatenation Entete colones / lignes + commentaire) les infos sur une autre feuille.

Je ne veux pas un code prépondu mais bel et bien comprendre la logique à suivre pour éditer une macro convenable.


Voici issu de l'exemple au dessus ce que j'ai édité pour le momment :

Pour l'instant l'éxecution du code me recopie le dernier de mes commentaires dans toute la zone destination.
Je suis déja assez content d'avoir scanné la table

Me suis je bien engagé sur la bonne voie ?