Copier coller valeur avec conditions

[walifon]

Bonjour à tous,
Voila j'ai un petit problème:
Je souhaiterais comme vous l'exemple joint en cliquant sur le bouton de macro que lorsque dans la plage (d2 : 02), il y a un "1", la macro fasse un "copier coller valeur" de cette colonne (dans l'exemple la colonne "J") de la ligne 4 à 9 c'est à dire sans toucher au "1".

Merci d'avance à celui qui me débloquera !!!!

Amandine...

 

[Robert]

Re : Copier coller valeur avec conditions

Bonjour Amandine, bonjour le forum,

Tu n'as pas précisé où tu voulais coller les valeurs. Dans le fichier ci-joint la macro les colle en Q5. Tu adapteras...

 

[SergiO]

Re : Copier coller valeur avec conditions

Bonjour Walifon, Robert

Walifon veut écraser les formules par les valeurs donc coller au même emplacement.

Voici mon bout de code

Sub Copie()
Range("C2").Select
Range("D2:O2").Find(What:="1").Activate

Col = ActiveCell.Column
With Range(Cells(4, Col), Cells(9, Col))
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub

@+

 

[walifon]

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....

 

[Robert]

Re : Copier coller valeur avec conditions

Bonjour Amandine, Sergio, bonjour le forum,

Regarde le post de Sergio, la lumière vient de chez lui...

 

[walifon]

Re : Copier coller valeur avec conditions

Merci à vous deux !!
Ca fonctionne nikel !!
Bonne journée !!