Macro pour une saisie guidée en excel

  • Auteur de la discussion tontonlabricole
  • Date de début

tontonlabricole

Nouveau membre
:hello: Bonjour, Je voudrai ecrire une macro en Excel pour faire une saisie guidée. Je coince.... :pt1cable:
Exemple va en B6 attend une entrée au clavier puis une fois validé va en C10 attend une entrée au clavier puis va en b16 attend une entrée au clavier puis va en a1 (fin du programme)
merci :love:
 

Benoit P

Grand Maître
En attendant, sans programmation VBA, je vais te dire :
"Va en cat Programmation"
 

tontonlabricole

Nouveau membre
Merci à toi Benoit d'avoir déplacé ma demande c'est vraiment Sympa
 

zeb

Modérateur
Oh le "up" déguisé :whistle:


Ta demande est bizarre.

"Va en B6" s'écrit :
Code:
Range("B6").Select
"Attend une entrée au clavier", "Valider" ne se dit pas en VB.

Qu'est-ce que tu appelles "une fois validé" ?
 

tontonlabricole

Nouveau membre
En fait Range("B6" ).Select ça je sais mais comment dans une suite de commande l'entrée d'une donnée une pause entre chaque range
Range("B6" ).Select pause car je veux entrer un nombre
Range("C10" ).Select pause car je veux entrer un nombre
Range("B16" ).Select pause car je veux entrer un nombre
merci
 

zeb

Modérateur
Ben voilà le problème. Je peux t'aider sur comment faire, mais pas sur quoi faire.

Des possibilités me viennent quand même à l'esprit :

■ Un userform avec une étiquette, une textbox et un bouton [Suivant >>]
Tu commences par mettre "Saisie de B6" dans l'étiquette,
Tu laisses l'utilisateur saisir un nombre dans la textbox,
Quand il clique sur suivant, tu enregistres la valeur dans B6, tu changes la valeur de l'étiquette et tu passes à l'étape 2.
A la dernière étape, le bouton [Suivant >>] devient [Terminer] et tu fermes la userform.

■ Un bouton [Suivant] directement sur la feuille :
Si on est en B6 aller en C10,
Si on est en C10 aller en B16,
..
Si on est en C234, aller en B6
 

zeb

Modérateur
Et ça ?

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = Range("B6") Then Range("C10").Select
  ..
End Sub
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 162
Messages
6 718 628
Membres
1 586 455
Dernier membre
Ethera
Partager cette page
Haut