Bonjour,
j'ai besoin de votre aide pour solutionner mon problème.
Je voudrais étendre un bout de code et je rame .
Voici ce bout de code.
Je voudrais pouvoir l’étendre jusqu’à la dernière cellule remplie de la colonne "G".
If UCase(Range("G4").Value) Like "*ISO*" Then
Range("O4").Value = Range("N4") + 1000
ElseIf UCase(Range("G4").Value) Like "*IBC*" Then
Range("O4").Value = Range("N4") + 500
ElseIf UCase(Range("G4").Value) Like "*SAC*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*BAG*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*ISOMIX*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*GEL*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*FUT*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*POUDRE*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*JERRYCAN*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*V5700*" Then
Range("O4").Value = Range("N4")
Merci pour votre aide.
j'ai besoin de votre aide pour solutionner mon problème.
Je voudrais étendre un bout de code et je rame .
Voici ce bout de code.
Je voudrais pouvoir l’étendre jusqu’à la dernière cellule remplie de la colonne "G".
If UCase(Range("G4").Value) Like "*ISO*" Then
Range("O4").Value = Range("N4") + 1000
ElseIf UCase(Range("G4").Value) Like "*IBC*" Then
Range("O4").Value = Range("N4") + 500
ElseIf UCase(Range("G4").Value) Like "*SAC*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*BAG*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*ISOMIX*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*GEL*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*FUT*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*POUDRE*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*JERRYCAN*" Then
Range("O4").Value = Range("N4")
ElseIf UCase(Range("G4").Value) Like "*V5700*" Then
Range("O4").Value = Range("N4")
Merci pour votre aide.