INouveau venuIsoyaInscrit le :14/12/2021Dernière activité :21/12/2021 à 16:11Messages4Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par IsoyaDateAuteur du sujetSujetExtrait du message21/12/2021 à 15:29Isoya Copier pour plusieurs cellulesBon je vous dois une bonne bière bien fraiche ahah, ça fonctionne nickel. Encore merci, bonne journée et fêtes de fin d'année...21/12/2021 à 15:06Isoya Copier pour plusieurs cellulesJ'utilise le code ci-dessous, il est actif que pour une cellule ("W3" et "G3" ) et je voudrais qu'il soit actif pour chaque cellules des colonnes "W" et "G". Private Sub Worksheet_Activate() If Not IsEmpty(Range("W3")) Then Sheets("Maison").Range("W3").Copy Destination:=Sheets("Maison").Range("G3")...17/12/2021 à 11:48IsoyaVBA copier collerPour mon problème 2, j'ai ajouté --> If Not IsEmpty(Range("W")) Then Par contre cela prend l'ensemble et je voudrais que ça s'applique cellule par cellule. Je sais pas si c'est très claire . Bonne journée...16/12/2021 à 15:27IsoyaVBA copier collerBonjour, j'ai une feuille base de donnée (1), dans cette feuille j'importe une autre base de donnée (2). Private Sub Worksheet_Activate() Worksheets("Bdd").Range("W3:W18000").Copy _ Destination:=Worksheets("Bdd").Range("G3:G18000") End Sub J'utilise ce code pour copier certaines données de la Bdd (2...Forums