Bonjour à tous,
J'ai cherché dans le forum et j'ai trouvé des choses similaires à ma demande mais lorsque j'essaie de l'appliquer ca ne fonctionne pas vraiment.
Voici mon problème :
J'ai actuellement plusieurs colonnes dont je veux récupérer les valeurs (et non pas les formules) tout en évitant de récupérer les valeurs nulles. Ces colonnes sont au nombre de 6 et sont liées 2 à 2.
Voici ce que j'ai essayé :
Sub copieValeur()
y = 3
For x = 3 To 2500
If Cells(x, 9).Value = "" Then
Else
Cells(y, 46).Value = Cells(x, 9).Value
Cells(y, 47).Value = Cells(x, 11).Value
End If
If Cells(x, 20).Value = "" Then
Else
Cells(y, 48).Value = Cells(x, 20).Value
Cells(y, 49).Value = Cells(x, 22).Value
End If
If Cells(x, 29).Value = "" Then
Else
Cells(y, 50).Value = Cells(x, 29).Value
Cells(y, 51).Value = Cells(x, 31).Value
End If
y = y + 1
Next x
End Sub
Ca à l'air de fonctionner pour la première colonne mais pas pour les autres
Quelqu'un saurait il pourquoi et aurait il une solution pour moi ?
Je suis un gros débutant en VBA donc veuillez me pardonner si j'ai fais des choses horribles
Merci par avance à tous et bonne soirée!
Cordialement.