[XL-2007] Faire une macro

[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 :

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 :

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 :

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.?

[aalex_38]

Bon j'ai éssayé le code... sans grand succés

Et si tu montrais le code que tu as essayé de faire ?

Ton problème est sur l'utilisation de select case ?

[lemargoullia]

oui c'est ça mon problème...

Mon code est le même que celui que j'ai fait précédement
mais je n'arrive pas à l'appliquer sur plusieurs cases:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Macro1()
'
' Macro1 Macro
' test
'
' Touche de raccourci du clavier: Ctrl+r
 
Dim cel As Range
For Each cel In Range("E14:E19")
If cel(1, 2) = 1 Then
Range("D14").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A4").Select
ActiveSheet.Paste
 
End If
Next cel
End Sub

mais ce code ne marche pas (évidement)
je sais pas quoi mettre après cel

[Krovax]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cel As Range
dim i as integer
i=4
For Each cel In Range("E14:E19")
If cel(1, 2) = 1 Then
cel .Select
cel .Copy
Sheets("Feuil1").Select
Range("A"& i).Select
ActiveSheet.Paste
i=i+1
End If
Next cel
End Sub

Bon après les select c'est tour pouris alors on les enlève

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim cel As Range
dim i as integer
i=4
For Each cel In Range("E14:E19")
If cells(1, 2) = 1 Then 'je ne sais pas ce que tu veux tester ici
cel.Copy
Sheets("Feuil1").Range("A"& i).ActiveSheet.Paste
i=i+1
End If
Next cel
End Sub

Attention cel est une variable qui représente une des cellule de la plage (tu l'utilise comme range("uneddress") ) et n'a rien a voir avec cells qui est un mot réservé cells(i,j) est la cellule ligne i colonne j

edit pour ton test
utilise cel.Offset(i,j)
c'est la cellule i ligne en bas j ligne a gauche de la cellule actuellement testé (pour monter ou aller a gauche il suffit de mettre un nombre négatif)
Exemple si la note et colonne G sur la meme ligne que l'intitulé

Code :

If cel.offset(0,2) = 1 Then

[lemargoullia]

Je suis navré mais ça fonctionne pas...je suis vraiment un boulet... et j'y connait rien!!
Je reprends depuis le début :

Lorsque 1 apparait dans la case E14, je dois copier la case D14, dans une autre feuille du classeur et ainsi de suite pour toute les autres cases de E14 à E19
le code que j'utilise :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro1()
'
' Macro1 Macro
' test
'
' Touche de raccourci du clavier: Ctrl+r
 
    Dim cel As Range
    Dim i As Integer
    i = 4
    For Each cel In Range("E14:E19")
    If cel(14, E).Value = 1 Then
    If cel.Offset(14, E) = 1 Then
    cel.Offset(14, E).Copy
    Sheets("Feuil1").Range("A" & i).ActiveSheet.Paste
    i = i + 1
    End If
    End If
    Next cel
    End Sub

Sauf que rien n'apparait sur l'autre feuille, apparement je ne copie pas les écritures

[Krovax]

Il me semblais avoir dit que cel et cells été deux chose TOTALEMENT différentes
Pourquoi continue tu as utiliser cel(14, E) de plus E n'a aucune valeur (et oui E est une variable pas un intitulé de colonne si tu veux la ligne 14 de la colonne E c'est cells(14,5) )

De plus cel.offset(14, E) décalé de 14 ligne et E colonne (ici E vau 0 puisque c'est une variable)


Cel est une cellule de la plage Range("E14:E19")
Pa besoin de dire quoi que ce soit de plus dessus

Si tu essayé le code que je t'ai donnée sans le bidouiller dans tous les sens en ne tenant pas compte des commentaire
Visiblement c'est dans la case D que tu veu copier alors au lieu de

Code :

Range("E14:E19")

met

Code :

 Range("D14:D19")

et met un offset d'un colonne a droite pour le teste en if

[lemargoullia]

C'est bon laisse tomber, j'ai préciseé que j'y connaissais rien...
je comprends rien à votre language
je demanderais de l'aide ailleurs
merci

[Krovax]

Tu as un code tout fait 2 lignes a modifié, et le code fonctionne, c'est vrai que je n'ai pas été super poile et rigolo mais je ne pense pas avoir été insultant non plus, tout ce que je demande c'est de lire les commentaire et d'y mettre un peu du siens (le deuxième points été pas trop mal d'ailleur).

Après libre a toi de te vexer et de continuer à galérer