aide complement macro

[Mitch]

Bonjour je voudrais ameliorer mon fichier , j'ai pour l'instant une macro (creer par Softmama que je remercie) qui me deplace des cellules de la feuille (clients) vers la feuille (BDD) .Je voudrais si c'est possible que ça copie aussi les cellules E3,E9 vers la feuille3 en cellules D et F
ci joint mon fichier
Merci

 

[James007]

Re : aide complement macro

Bonjour,

Si j'ai bien compris ...

Sub Copie()
Sheet1.Range("E3").Copy Destination:=Sheet3.Range("D3")
Sheet1.Range("E9").Copy Destination:=Sheet3.Range("F9")
End Sub

A+
🙂

 

[Mitch]

Re : aide complement macro

Je te remercie James007 c'est exactement ce que je voulais j'ai juste modifie pour que la destination ce fasse a la suite de ma liste
une autre petite question stp quand je clique sur mon bouton serait il possible de remettre mes cellules vide
Merci

 

[James007]

Re : aide complement macro

Re,

Content que cela fonctionne pour toi ...
Je ne sais aps de quel bouton tu parles ... mais oui, on peut effacer le contenu de cellules ... ( avec .ClearContents )

A +

 

[Mitch]

Re : aide complement macro

en piece jointe j'ai mon fichier dans la feuille (clients) j'ai un bouton enregister qui declenche la macro j'aurais voulu q"une fois cliquer tout ce mette a zero

 

[James007]

Re : aide complement macro

Re,

Je pense qu'il te suffit de rajouter cette ligne, à la fin de ton code existant:

Sheet1.Range("E3:I19").ClearContents

A +
🙂