Demande d'un code VBA
tayeb15
Messages postés
3
Statut
Membre
-
Le Pingou Messages postés 12646 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12646 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis un débuteur en code VBA et j'ai développer un code qui me permet d'envoyer le contenu d'une cellule à un base de donné sous excel en cliquant sur un bouton, mais je veux que ces donné sera envoyé à un endroit spécéfique "qui sera choisi manuellement par l'utilisateur".
voilà le code VBA que j'ai utilisé:
Sub Macro1()
'
' Macro1 Macro
'
Range("G9").Select
Selection.Copy
Sheets("Data base").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("H9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data base").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data base").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("H9").Select
Selection.ClearContents
Range("G9").Select
Selection.ClearContents
End Sub
J'attend votre Réponse
Je suis un débuteur en code VBA et j'ai développer un code qui me permet d'envoyer le contenu d'une cellule à un base de donné sous excel en cliquant sur un bouton, mais je veux que ces donné sera envoyé à un endroit spécéfique "qui sera choisi manuellement par l'utilisateur".
voilà le code VBA que j'ai utilisé:
Sub Macro1()
'
' Macro1 Macro
'
Range("G9").Select
Selection.Copy
Sheets("Data base").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("H9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data base").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data base").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("H9").Select
Selection.ClearContents
Range("G9").Select
Selection.ClearContents
End Sub
J'attend votre Réponse
A voir également:
- Demande d'un code VBA
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
3 réponses
Bonjour,
Juste au passage, êtes-vous sur que votre code fonctionne correctement ?
Note, c'est vraiment inutile de mettre des ligne en gras et surtout sans merci...!
Juste au passage, êtes-vous sur que votre code fonctionne correctement ?
Note, c'est vraiment inutile de mettre des ligne en gras et surtout sans merci...!
Bonjour,
Eh bien voici la réponse (avec erreur sur la ligne entourée de rouge) :
Donc pas possible de comprendre ce que vous voulez réaliser.
Eh bien voici la réponse (avec erreur sur la ligne entourée de rouge) :
Donc pas possible de comprendre ce que vous voulez réaliser.
Bonjour,
Eh bien le code que vous avez mis produit la faute que j'ai mentionnée.
Si vous pensez que je me trompe, alors vous mettez votre fichier sur https://www.cjoint.com/ et poster le lien.
Note: les lignes A,B et C n'existent pas dans Excel.
Salutations.
Le Pingou
Eh bien le code que vous avez mis produit la faute que j'ai mentionnée.
Si vous pensez que je me trompe, alors vous mettez votre fichier sur https://www.cjoint.com/ et poster le lien.
Note: les lignes A,B et C n'existent pas dans Excel.
Salutations.
Le Pingou
oui je suis sur que le code marche bien, je ne sais pas qu'il est le soucie?!
salutation