Euh, je ne comprends pas. Je parle pas bien VBA... J'arrive à me débrouiller un peu parfois avec bcp bcp d'aide, mais sur cette requete je n'ai pas trouve de solutions miracle qui marche.
J'ai un code, mais il ne me sélectionne pas la ou les lignes désirées. Que faudrait-il changer pour que ca marche ??? Un grand merci par avance car vous ne vous imaginez meme pas comment ca va m'aider... Car j'ai pas que TOTO à tester, j'ai aussi TATA, TITI, TUTU, et tous leurs frères et soeurs
Ma condition est : si dans le fichier DEPART, la ligne 1 contient le mot TOTO en cellule (ligne1/colonneI) ou en cellule (ligne1/colonne M) alors l'ensemble de la ligne 1 est copiée collée dans l'onglet TOTO...
J'imagine que dans l'onglet TOTO, j'aurais à la fin des lignes vides aussi
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("TOTO").Activate ' feuille de destination
Col = "i" ' colonne données non vides à tester'
NumLig = 0 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("DEPART") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 0 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("TOTO").Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With