Signaler

Instruction "Do" dans une macro (Excel 2010) [Résolu]

Posez votre question Ju@nita 133Messages postés mardi 11 juin 2013Date d'inscription 30 août 2017 Dernière intervention - Dernière réponse le 2 août 2017 à 19:05 par Ju@nita
Bonjour,

On m'a déjà donné ceci à mettre dans une macro par le passé et j'essaie de le réutiliser ailleurs. Avant, c'était dans le but d'effacer quelque chose dans une colonne si c'était écrit autre chose dans une autre. Aujourd'hui, je veux RAJOUTER le mot DEPOT dans la colonne D si c'est écrit DEPOT dans la colonne C. Voici ce que j'ai mis dans ma macro:

Do
valeurB = ActiveSheet.Cells(3 + I, 3).Value
If valeurB = "DEPOT" Then
ActiveSheet.Cells(3 + I, 4).Value = "DEPOT"
End If
I = I + 1
Loop While valeurB <> ""

et ça fonctionne très bien. Par contre, j'ai une 2e donnée à faire rajouter. J'ai aussi le mot CORRECTION DE DEPOT d'écrit dans la colonne C pour lequel je veux rajouter aussi le mot DEPOT dans la colonne D. J'ai essayé ceci:
Do
valeurB = ActiveSheet.Cells(3 + I, 3).Value
If valeurB = "DEPOT" Then
ActiveSheet.Cells(3 + I, 4).Value = "DEPOT"
End If
I = I + 1
Loop While valeurB <> ""
Do
valeurC = ActiveSheet.Cells(3 + I, 3).Value
If valeurC = "CORRECTION DE DEPOT" Then
ActiveSheet.Cells(3 + I, 4).Value = "DEPOT"
End If
I = I + 1
Loop While valeurC <> ""

mais ça ne marche pas car on dirait que le VBA n'accepte pas d'en mettre 2. J'ai pourtant pensé à changer la valeurB pour valeurC, pensant que ça marcherait mieux. Mais j'ai été déçue. Donc, peut-on les mettre les 2 ensemble ? du genre : if valeurB = CORRECTION ou DEPOT ???

merci pour vos lumières.


Utile
+0
plus moins
Bonjour

Essaies comme ceci
Public Sub ok()
Dim I As Long, valeurB As String
I = 0
Do
  valeurB = ActiveSheet.Cells(3 + I, 3).Value
  If valeurB = "DEPOT" Or valeurB = "CORRECTION DE DEPOT" Then
    ActiveSheet.Cells(3 + I, 4).Value = "DEPOT"
  End If
  I = I + 1
Loop While valeurB <> ""
End Sub

Cdlmnt
Donnez votre avis
Utile
+0
plus moins
yeah ! ça marche. Un gros merci et bonne fin de journée.
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !