sonskriverez
XLDnaute Occasionnel
Bonjour le forum
J'ai plusieurs colonnes, dans une de celle-ci je dois rechercher des informations et les coller dans une autre feuille.
1°) je connais seulement le titre de la colonne (cellule x1)
2°) je connais l'information à rechercher
3°) une fois trouvé je copie la ligne sur l'autre feuille e je la delete dans la feuille source
For Each cell_ac In cel
cell_ac.Select
If cell_ac = 'User.Name' Then
colonne = ActiveCell.Column
ligne = ActiveCell.Row
y = colonne
j = 3
For i = 2 To Range('P65536').End(xlUp).Row
Cells(i, y).Select
If Cells(i, y) Like '*TOTO*' Then
compte = compte + 1
Rows(i).Select
Selection.Copy
Sht2.Select
Rows(j).Select
j = j + 1
ActiveSheet.Paste
Sht1.Select
Selection.Delete
i = i - 1
End If
Next i
End If
Next cell_ac
Comment dans ma boucle 'For i', je peux eviter le ('P65536'), car si la colonne n'est pas en P ça coince
Merci de votre aide
J'ai plusieurs colonnes, dans une de celle-ci je dois rechercher des informations et les coller dans une autre feuille.
1°) je connais seulement le titre de la colonne (cellule x1)
2°) je connais l'information à rechercher
3°) une fois trouvé je copie la ligne sur l'autre feuille e je la delete dans la feuille source
For Each cell_ac In cel
cell_ac.Select
If cell_ac = 'User.Name' Then
colonne = ActiveCell.Column
ligne = ActiveCell.Row
y = colonne
j = 3
For i = 2 To Range('P65536').End(xlUp).Row
Cells(i, y).Select
If Cells(i, y) Like '*TOTO*' Then
compte = compte + 1
Rows(i).Select
Selection.Copy
Sht2.Select
Rows(j).Select
j = j + 1
ActiveSheet.Paste
Sht1.Select
Selection.Delete
i = i - 1
End If
Next i
End If
Next cell_ac
Comment dans ma boucle 'For i', je peux eviter le ('P65536'), car si la colonne n'est pas en P ça coince
Merci de votre aide