Titre du sujet : Re: Tri colonne
par myDearFriend! le 24/09/2012 21:00:03
Bonsoir Nutella, bienvenue sur XLpages.com 
Si j'ai bien compris les 2 questions :
' myDearFriend! - www.mdf-xlpages.com
Sub Traitement1()
Dim L As Long, Lmax As Long
With Sheets("Feuil1")
'Dernière ligne colonne A
Lmax = .Cells(.Rows.Count, 1).End(xlUp).Row
'Pour chaque ligne complétée
For L = 1 To Lmax
With .Cells(L, 1)
'Si valeur en colonne A = 5 caractères
If Len(.Value) = 5 Then
'Alors valeur Feuil1 = cellule jumelle en Feuil2
.Value = Sheets("Feuil2").Cells(L, 1).Value
End If
End With
Next L
End With
End Sub
Sub Traitement2()
'Recopie les lignes 1 à 5 en lignes 6 à 10
With Sheets("Feuil1")
.Rows("1:5").Copy Destination:=.Rows("6:10")
End With
End Sub
En espérant que ça puisse t'aider.
Par ailleurs, STP :
- Merci de taper le texte de tes messages directement dans l'éditeur de post du forum et de ne pas faire de copier-coller du texte depuis un autre éditeur (Word ou autre...). Sinon, ça ajoute toute une série de balises (invisibles) à ton texte et ça alourdit inutiliement notre base de données.
- Pour insérer du code VBA proprement dans tes posts : consulter CETTE FAQ.
Cordialement,
|
Didier FOURGEOT