Je voudrais créer une macro qui teste si la valeur de chaque cellule d'une colonne est "0".
Si cette valeur est "0", alors copier les champs liés à cette cellule sur une autre feuille en les insérant à la dernière ligne vide.
Re : tester si valeur 0 et copier des données sur une autre feuille
Bonjour,
Je ne vois pas ce que tu veux exactement
voila une macro qui par de A50 et remonte jusque 1
si Ax=0
écris ton code
le reste fonctionne automatiquement.
sub test()
Range("A50").Select
For i = 49 To 1 Step -1
If ActiveCell.Value = 0 Then
Ajouter le code.....pour réaliser ton action
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Next i 'ici on passe à au suivant
and sub
Ajoute un fichier à ton message c'est plus simple.
Re : tester si valeur 0 et copier des données sur une autre feuille
Merci je vais essayer ceci.
Mais comment copier sur la première ligne vide d'une colonne?
Je veux copier les champs liés à une cellule de valeur "0" qui se trouve dans une colonne puis les copier en fin de liste d'une autre colonne. Mais je ne sais pas comment
Merci encore.
Voici un exemple
feuille 2
aaa 1 ggggg 213
bbb 2 fffffff 487
ccc 0 0 0 ligne à recopier dans feuille 1 à la 1ere ligne vide
ddd 5 dddd 254
fffff 8 jjjjjjj 732
rrrrr 0 0 0 ligne à recopier dans feuille 1 à la 1ere ligne vide
ssss 4 mmm 784
Re : tester si valeur 0 et copier des données sur une autre feuille
Bonjour,
regarde le code cdi-dessous :
Code:
Option Explicit
Sub test()
Dim c As Range
For Each c In Feuil1.Range("A2:A" & Feuil1.Range("A65536").End(xlUp).Row)
If c.Text = 0 Then c.EntireRow.Copy Feuil2.Range("A65536").End(xlUp)(2)
Next c
End Sub