Trouver la colonne

[sonskriverez]

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

 

[Bricofire]

Bonjour sonskriverez ,

Peut-être en utilisant Cells plutot que Range

Comme tu connais la colonne, si j'ai compris, où tu te trouves, tu peux mettre son N° en variable. En plus ça t'évite de te démêler avec un lettre ou deux selon les colonnes...

Sachant que :
Range ('D12') = Cells(12,4) par exemple (inversion des arguments entre les 2...

un truc du genre :

Sub toto()
K = 7
Z = Cells(65536, K).End(xlUp).Row
MsgBox Z
End Sub

fonctionne...
Bon courage,

Bfr

Message édité par: bricofire, à: 05/01/2006 17:30

 

[sonskriverez]

Merci Bricofire, je viens de tester ca marche super bien, cela me permet d'avancer dans mes automatismes de traitements.

Encore Merci