Copier une cellule sur une autre feuille si condition

DoubleZero

XLDnaute Barbatruc

• 29 Janvier 2018

• #2

Bonjour à toutes et à tous,

Bienvenue sur XLD, cloquiom.

Supprimer les formules présentes en colonne a de l'onglet destinataire et placer le code ci-après dans le module de l'onglet de saisie.

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Column <> 11 Or c.Count > 1 Or c.Row < 6 Then Exit Sub
    If c = "oui" Then c.Offset(, -9).Resize(, 5).Copy Destination:=Sheets("Adresses envoi"). _
      Range("a" & Rows.Count).End(xlUp)(2): c.Offset(1, 0).Select
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

C

cloquiom

Guest

• 30 Janvier 2018

• #3

Bonjour DoubleZero.

Merci beaucoup pour votre aide.Ca marche !! jajaja 😀

Cependant étant vraiment novice dans tous ce qui touchent à excel, j'ai encore un petit souci. Lorsque je change et écrit "non", la ligne reste tout de même écrite sous l'onglet Adresse envoi. est-il possible de mettre une variable "si" qui effacerait la ligne si s'est écrit autre chose que oui ou si s'est écrit "non"?


Merci d'avance ¨!! Excellente journée 😀

 

Pièces jointes

• Classeur1.xlsm

  25 KB · Affichages: 34

Dernière modification par un modérateur: 30 Janvier 2018

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 1 Février 2018

• #4

Bonjour, cloquiom, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - cloquiom - Dupliquer si....xlsm

  28.7 KB · Affichages: 88

Vote positif 0 Vote négatif

S

samasama

Guest

• 21 Septembre 2020

• #5

Hello
j'essaye de faire la meme chose
je veux que sur onglet order quand j'ai validé ça se copie sur data achats confirmés
j'ai essayé de suivre le code mais ça marche pas
help pelase

 

Pièces jointes

• ESS1.xlsm

  60.6 KB · Affichages: 12

Vote positif 0 Vote négatif

K

KVNCRX

Guest

• 28 Février 2022

• #6

Bonjour,

Je suis à la recherche d'une formule pour Copier/coller plusieurs pages d'une "feuil3" + "feuil4" + .... dans une autre feuille "feuille2" en fonction d'un mot clé saisie dans la cellule dans la "feuil1"

Avez vous des solutions ?

 

Vote positif 0 Vote négatif