Condition IF dans une boucle FOR
Bonjour à tous
Voilà mon soucis, j'ai un document dans lequel je souhaite dissocier les différents éléments en X feuilles différentes selon une colonne ( colonne S) de vérification que j'ai créée
c'est surement très basique, mais je n'arrive pas à faire marche ma condition IF, pour l'instant c'est la première étape avant de rajouter le copier/coller des lignes sélectionné mais si je peux déjà faire marcher ça
merci beaucoup
Sub OP()
Dim k As Integer
k = 1
D = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
For k = 1 To D
If Cells(k, 19).Value <> Cells((k - 1), 19).Value Then
Set Source = Cells(k, 19)
Sheets.Add After:=Worksheets(Worksheets.Count())
ActiveSheet.Name = Source.Value
End If
Next
End Sub
Bonjour
Merci d'utiliser les balises de code (icone </> dans le menu) lorsque vous postez un message. Sinon essayez ceci
Sub OP()
Dim k As Integer
D = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
For k = 1 To D
If Cells(k, 19).Value <> Cells((k - 1), 19).Value Then
Set Source = Cells(k, 19)
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Source.Value
End If
Next k
End SubCordialement