Copie de cellule avec condition VB

Résolu/Fermé
Signaler
Messages postés
49
Date d'inscription
lundi 23 août 2010
Statut
Membre
Dernière intervention
14 octobre 2010
-
Messages postés
49
Date d'inscription
lundi 23 août 2010
Statut
Membre
Dernière intervention
14 octobre 2010
-
Bonjour à tous ,

Je me prends la tête sur un problème depuis ce matin.

Mon code doit:

-Parcourir un tableau
-Avec une condition si dans la colonne F la cellule="test" et la cellule(Ligne-1)="test"
-Alors copier Range("E104":"E105") dans colonne F au même niveau que les cellules recherché

Avec la code ci dessous soit c'est décaler soit en dessous:

Sub DEPA()

'


Dim Lig As Long
Dim NbrLig As Long
Dim NumLig As Long

Dim Col As String
Dim Col1 As String

Sheets("carnet dep a").Activate
NumLig = 0
Col = "F"
Col1 = "E"
With Sheets("carnet dep a")
NbrLig = .Cells(5000, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value ="test" And .Cells(Lig-1, Col)="test" Then
.Range("E104:E105").Copy

NumLig = NumLig + 1
.Cells(Lig-1, Col1).Select
ActiveSheet.Paste

End If
Next
End With
End Sub

Merci de votre aide !

1 réponse

Messages postés
49
Date d'inscription
lundi 23 août 2010
Statut
Membre
Dernière intervention
14 octobre 2010
1
resolu