copie coller suivant selection cellule

[GHISLAIN]

bonjour le forum,


je cherche a copier coller des colonnes suivant la cellule active

effectivement , je cherche un nom dans ma feuille et une fois trouvé , les colonnes AB seront copiées collées dans la feuille print1 , et les colonnes afférentes a ce nom devront être également copiées s et collées dans la feuille print1 a partir de la colonne C

ci joint un fichier qui je le souhaite sera plus explicite

très cordialement

Ghislain

 

[GHISLAIN]

Re : copie coller suivant selection cellule

re tous ,


je pense avoir un bout de piste



Dim Var
Dim NumLg
On Error Resume Next
Dim c As Range
Var = ComboBox1.Value
Set c = Sheets(ActiveSheet.Name).cells.Find(What:=(Var), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not c Is Nothing Then
With Application
.EnableEvents = False
.Goto c
.EnableEvents = True
End With
End If


ActiveCell.Offset(3, 0).Resize(44, 7).Select
Selection.Copy

Sheets("PrintStagiaire").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False


bon je ne sais pas ci c est la meilleure methode

mais ça le fait

cordialement

ghislain