Bonjour à toutes et à tous,
Voici le pb qui m'arrache les cheveux depuis qqs jours!
Je split des données. J'insère une ligne sous chacune des lignes où se situent ces données (dans une autre feuille).
Je n'arrive pas à boucler sur la valeur de TabTemp(i) pour me permettre de passer à ma 2ème, 3ème..donnée splitée.
Est-ce que qqn peut m'apporter une solution? Meric d'avance
En pj mon fichier. ds l'onglet essai je sélectionne plusieurs données. dès que je valide par un click droit dans OK étape, mon code s'éxécute
Voici le pb qui m'arrache les cheveux depuis qqs jours!
Je split des données. J'insère une ligne sous chacune des lignes où se situent ces données (dans une autre feuille).
Je n'arrive pas à boucler sur la valeur de TabTemp(i) pour me permettre de passer à ma 2ème, 3ème..donnée splitée.
Est-ce que qqn peut m'apporter une solution? Meric d'avance
En pj mon fichier. ds l'onglet essai je sélectionne plusieurs données. dès que je valide par un click droit dans OK étape, mon code s'éxécute
Code:
With Feuil1
TabTemp = Split(ActiveCell.Offset(0, -6), ";")
If UBound(TabTemp) <> -1 Then
For i = 0 To UBound(TabTemp)
For a = .Range("A65536").End(xlUp).Row To .Range("A3").Row Step -1
If .Cells(a, 1) = TabTemp(i) Then
MsgBox TabTemp(i)
Exit For
ElseIf .Cells(a, 1) <> TabTemp(i) Then
End If
Next a
If a <> .Range("A2").Row Then
.Range(.Cells(a, 1), .Cells(a, 11)).Copy
.Range(.Cells(a, 1), .Cells(a, 11)).Insert shift:=xlDown
ActiveCell.Offset(0, -12).Copy Destination:=.Cells(a + 1, 5)
ActiveCell.Offset(0, -3).Copy Destination:=.Cells(a + 1, 6)
.Cells(a + 1, 4) = "essai"
.Range(.Cells(a + 1, 7), .Cells(a + 1, 9)).ClearContents
.Cells(a + 1, 4).Interior.ColorIndex = xlNone
End If
Next i
End If
End With