Bonjour a tous!
Voici mon problème :
Je dois créé une fonction qui va chercher dans la colonne B la 2ème apparition d'un mot, prend la cellule équivalente de la colonne D, et l'additionne à la 1ère cellule de la colonne C...un peu compliqué
J'ai déjà passé pas mal de temps dessus, il fonctionne, mais m'affiche 0 dans la variable ActiveCell.Value :
Dim i As String
Dim j As String
i = 0
j = 0
Dim cel As Range
Dim tat As String
Dim val2 As Range
For Each cel In Worksheets("machine").Range("B5:B" & Range("B20").End(xlUp).Row)
tat = cel.Value
If tat = Worksheets("machine").[B6].Value Then
i = i + 1
If i = 2 Then
Range("cel").Select
ActiveCell.Offset(0, 2).Select
Worksheets("machine").[D6].Value = ActiveCell.Value + Worksheets("machine").[C6].Value
End
End If
End If
If j = 20000 Then
val2 = Worksheets("machine").[C5].Value
Worksheets("machine").[D5].Value = val2
End
End If
j = j + 1
Next cel
End Sub
Et j'oubliai, merci d'avance pour votre aide 🙂
Voici mon problème :
Je dois créé une fonction qui va chercher dans la colonne B la 2ème apparition d'un mot, prend la cellule équivalente de la colonne D, et l'additionne à la 1ère cellule de la colonne C...un peu compliqué
J'ai déjà passé pas mal de temps dessus, il fonctionne, mais m'affiche 0 dans la variable ActiveCell.Value :
Dim i As String
Dim j As String
i = 0
j = 0
Dim cel As Range
Dim tat As String
Dim val2 As Range
For Each cel In Worksheets("machine").Range("B5:B" & Range("B20").End(xlUp).Row)
tat = cel.Value
If tat = Worksheets("machine").[B6].Value Then
i = i + 1
If i = 2 Then
Range("cel").Select
ActiveCell.Offset(0, 2).Select
Worksheets("machine").[D6].Value = ActiveCell.Value + Worksheets("machine").[C6].Value
End
End If
End If
If j = 20000 Then
val2 = Worksheets("machine").[C5].Value
Worksheets("machine").[D5].Value = val2
End
End If
j = j + 1
Next cel
End Sub
Et j'oubliai, merci d'avance pour votre aide 🙂
