Bonjour,
Je voudrais réaliser une macro qui me copie une valeur dans une cellule ou dans une autre en fonction de sa valeur:
J'ai commencé à faire ce code mais celui ci ne fonctionne pas, avez vous une piste ?
Je voudrais réaliser une macro qui me copie une valeur dans une cellule ou dans une autre en fonction de sa valeur:
J'ai commencé à faire ce code mais celui ci ne fonctionne pas, avez vous une piste ?
Code:
Sub test()
'Déclaration d'une variable entière pour stocker le nombre de ligne de ton tableau
Dim NombreLigne As Integer
'Sélection de la feuille sur laquelle se trouve les données à traiter
Sheets("Feuil2").Select
'Enregistrement du nombre de ligne de ton tableau
NombreLigne = Range("B2", [B2].End(xlDown)).Select
'Boucle qui va de 1 au nombre total de ligne
For i = 1 To NombreLigne
'Si la cellule de la ligne i et de la seconde colonne (B) est inférieur à 2 fois " B2", alors
If Cells(i, 2) <= B2 * 2 Then
'La valeur de la cellule de la ligne i et de la colonne 1 (B) est recopié sur la même ligne i en colonne 3 (C)
Cells(i, 5).Value = Cells(i, 2).Value
'Fin de la condition If
End If
'Si la cellule de la ligne i et de la seconde colonne (B) est supérieur ou égale à 2 fois " B2", alors
If Cells(i, 2) >= B2 * 2 Then
'La valeur de la cellule de la ligne i et de la colonne 1 (B) est recopié sur la même ligne i en colonne 6 (F)
Cells(i, 6).Value = Cells(i, 2).Value
'Fin de la condition If
End If
'Fin de la boucle For
Next
End Sub