Re : Copier coller valeur avec conditions
Merci robert !!
Je souhaite en fait que cela recole sur la même colonne que la ou il y avait un "1" pour figer les cellules...J'ai essayé d'ajuster le code mais j'avoue être débutante .... As tu une explication....
rivate Sub CommandButton1_Click()
Dim cel As Range 'déclare la variabel cel
Dim c As Byte 'déclare la variabel c
For Each cel In Range("D2:O2") 'boucle toiutes les celluels de la plage D2:O2
If cel.Value = 1 Then 'condition : si la valeur de la cellule est égale à 1
c = cel.Column 'définit la variable c (le numéro de la la colonne)
Range(Cells(5, c), Cells(221, c)).Copy 'copie le cellules correspondante
ActiveSheet.Range("5,c").PasteSpecial (xlValues) 'les colle en Q5 (tu n'a pas précisé où !!!)
Application.CutCopyMode = False 'supprime le mode "copier" (cligontement des cellules)
Exit For 'sort de la boucle
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub
Je pense que le pb vient de la ou j'ai mis la ligne en rouge....