Macro copier uniquement valeurs

[Usine à gaz]

Bonsoir à toutes et à tous,

Encore besoin de votre aide pour une macro que je n'arrive pas à faire malgré mes recherches.

Voici mon problème :

J'aimerai faire un copier/coller uniquement valeur comme suit

Condition 1 si feuil2 B9 est égal à feuil1 D11 copier VALEUR de feuil1 G11 sur feuil2 C9
Condition 2 si feuil2 B10 est égal à feuil1 D11 copier VALEUR de feuil1 G11 sur feuil2 C10

Votre aide toujours précieuse me serait d'un grand secours 🙂

Merci encore une fois,
Amicalement,
Calimero,

 

[camarchepas]

Re : Macro copier valeur sous conditions

Coucou Caliméro ,

Une solution possible :

Sub bouge()
 With Sheets("Feuil2")
   If .Cells(9, 2) = Sheets("Feuil1").Cells(11, 4) Then .Range("c9") = Sheets("Feuil1").Range("G11")
   If .Cells(10, 2) = Sheets("Feuil1").Cells(11, 4) Then .Range("c10") = Sheets("Feuil1").Range("G11")
 End With
End Sub

 

[Usine à gaz]

Re : Macro copier valeur sous conditions

Bonsoir camarchepas,

Super et si rapide vraiment .......

ça marche bien sûr ....... encore un confort supplémentaire grâce à toi 🙂
Merci,

Amicalement,
Lionel (calimero),

 

[Staple1600]

Re : Macro copier valeur sous conditions

Bonsoir à tous

Une possible solution 😉

Sub egoub()
Dim t, x, y
x = Sheets("Feuil1").[G11]: y = Sheets("Feuil1").[D11]
With Sheets("Feuil2")
    t = .[B9:B10].Value
    .[c9] = Application.Rept(x, t(1, 1) = y): .[c10] = Application.Rept(x, t(2, 1) = y)
End With
End Sub

 

[Usine à gaz]

Re : Macro copier valeur sous conditions

Bonsoir Jm,
Bonsoir à tous,

Merci pour cette solution, je vais l'essayer et comme pour celle camarchepas, je vais essayer de comprendre.

Bonne fin de soirée 🙂
Amicalement,
Calimero,

 

[camarchepas]

Re : Macro copier valeur sous conditions

Bonjour ,

Commenté avec tes propres termes ,
la découpe est là juste pour placer les commentaires au plus près des instructions.

Et oui , c'est la valeur que tu veux , pas la mise en forme associée , donc petite modif en ajoutant le .value

J'espère que cela sera limpide pour toi maintenant ....

Sub bouge()
 With Sheets("Feuil2")  ' Ici mise en facteur , Les éléments si dessous commençant par . s'y rapportent

'Condition 1 si feuil2 B9 est égal à feuil1 D11 
   If .Cells(9, 2) = Sheets("Feuil1").Cells(11, 4) Then _ 
         .Range("c9") = Sheets("Feuil1").Range("G11").value '  copier VALEUR de feuil1 G11 sur feuil2 C9

'Condition 2 si feuil2 B10 est égal à feuil1 D11 
   If .Cells(10, 2) = Sheets("Feuil1").Cells(11, 4) Then _ 
         .Range("c10") = Sheets("Feuil1").Range("G11").value 'copier VALEUR de feuil1 G11 sur feuil2 C10

 End With "Fin de la mise en facteur
End Sub

 

[Usine à gaz]

Re : Macro copier valeur sous conditions

Bonjour Camarchepas,
Bonjour à toutes et à tous,

Pardon pour mon retard de réponse .... j'étais absent.

Merci pour la clarté de ton explication ....... mais ton code, je l'avais compris LOL 🙂
C'est le code de JM que j'ai pas encore compris mais j'y travaille ... le soir.

Merci vraiment pour ta gentillesse,
Amicalement,
Caliméro,

 

[Usine à gaz]

Re : Macro copier valeur sous conditions

Bonjour CAMARCHEPAS,
Bonjour à toutes et à tous,

Je reviens sur ce fil car j'avais très mal exposé mon problème et les réponses données fonctionnent très bien mais ne correspondent pas à mon besoin :

J'aimerais qu'excel (par macro) ne copie uniquement que les valeurs quand on fait un copier/coller. Ceci évitant les éventuelles erreurs de manipulations.

Pour cela, en son temps, j'avais aussi reçu un code que je n'arrive pas à faire fonctionner :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'sécurité
With Application 'oblige coller uniquement valeur
  If .CutCopyMode Then
    .EnableEvents = False
    .Undo
    Selection.PasteSpecial xlPasteValues
    .OnUndo "", ""
    .OnRepeat "", ""
    .EnableEvents = True
  End If
End With
End Sub

Pourrais-tu m'aider ... ?
Pourriez-vous m'aider ... ?

Je joins un petit classeur test.

Bon WE à toutes et à tous,
Amicalement,
Calimero,