Re : [vba excel]copier une colonne en fonction d'une cellule
Bonsoir,
une remarque concernant la condition:
If celle.Value = 5 And celle.Value <> ""
si celle vaut 5 forcément elle ne sera pas vide.
Donc tu peux supprimer la deuxième vérification à moins que tu veuilles dire Ou: "Or" .
Sinon, pour récupérer la colonne:
Code:
sub cinq()
Dim celle As Range
For Each celle In Range("e4:ai4")
If celle.Value = 5 And celle.Value <> "" Then
[COLOR=Blue][B]celle.EntireColumn.Copy 'ici tu écris la cellule de destination[/B][/COLOR]
celle.select
End If
Next
End Sub
Edit: Au fait, prend tout de suite l'habitude d'éviter les ".Select", inutile dans VBA et ralentie la macro .
si celle vaut 5 forcément elle ne sera pas vide.
Donc tu peux supprimer la deuxième vérification à moins que tu veuilles dire Ou: "Or" .
Sinon, pour récupérer la colonne:
Code:
sub cinq()
Dim celle As Range
For Each celle In Range("e4:ai4")
If celle.Value = 5 And celle.Value <> "" Then
[COLOR=Blue][B]celle.EntireColumn.Copy 'ici tu écris la cellule de destination[/B][/COLOR]
celle.select
End If
Next
End Sub
Edit: Au fait, prend tout de suite l'habitude d'éviter les ".Select", inutile dans VBA et ralentie la macro .
en fait j'aimerai coller la colonne qui contient la valeur 5 dans la colonne E
lorsque j applique ton code j'ai une erreur 1024 probleme de format entre cellule copier et cellule collees
Re : [vba excel]copier une colonne en fonction d'une cellule
bonjour Labuche, Skoobi, le fort homme
avant de copier la nouvelle colonne (par exemple AB) dans la colonne E, il vaudrait mieux faire un effacement complet de ladite colonne E
car si avant le collage en cours il y avait + de lignes de données que maintenant, les valeurs qui depassent vont rester et éventuellement fausser des calculs
le mieux dans ce cas serait de coller toute la colonne (AB dans mon exemple) par dessus la colonne E, cela éviterait ce genre de prob