Discussion :

[lemargoullia]

Bonjour,

Je dois faire une macro sous excel et je suis un débutant
je vous explique mon travail :
j'ai un tableau avec 6 lignes et 4 colonnes
dans la 1ère colonne il y a l'intitulé du critère et dans les 3 autres on doit mettre une note entre 1 et 0.
le but est de copier dans une autre feuille excel l'intitulé du critère qui a une note 1
J'ai réussi à le faire pour une case avec la fonction "If" mais lorqu'il faut le faire sur une plage de cellule, là je câle

pouvez-vous m'aider??

[laetitia]

bonjour lemargoullia le forum si tu pouvez nous mettre un petit zip avec le resultat attendu sur feuille2 comment cela pas simple!!

[lemargoullia]

Voilà le tableau
Lorsqu'il y a un 1 dans la 2ème colonne je dois copier l'intitulé sur une autre feuille excel
Par exemple dans le tableau ci dessus : ervolution du chiffre d'affaire; evolution de la taille d'entreprise, etc...

Pour une cellule ça va, mais lorqu'il ya plusieurs cellules...

[Krovax]

Pour une cellule ça va, mais lorqu'il ya plusieurs cellules...

Hé bien boucle sur les cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim cel as range
for each cel in range ("A2:A20") 'remplace "A2:A20" par la plage que tu veux tester
'le code en utilisant cel
next cel

Ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim i as long, DerniereLigne = Range("A65536").End(xlUp).Row as long
DerniereLigne = Range("A65536").End(xlUp).Row
for i = 2 to DerniereLigne = Range("A65536").End(xlUp).Row
'ton code en utilisant cells(i,1)
net i

Sinon tu peux aussi nous donne ton code qui fonctionne pour une cellule et on essaye ensemble de l'adapter a une plage

[lemargoullia]

Sinon tu peux aussi nous donne ton code qui fonctionne pour une cellule et on essaye ensemble de l'adapter a une plage

Je veux bien, mais je préviens je suis un novice de chez novice...

pour l'instant j'ai réussi à faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Range("E14") = 1 Then
    Range("D14").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("A4").Select
    ActiveSheet.Paste
 
 
End If

C'est pas super, mais ça marche pour une case, je vais essayer ton code et on verra

[lemargoullia]

Bon j'ai éssayé le code... sans grand succés
je bloque sur la condition à mettre :
si il y a 1 dans cette case, donc copier la case
ex: si il y a 1 pour "evolution du Ca", copier "evolutiondu CA"

Il faut mettre un lien entreles 2 cases.?