Complement code vba

Résolu
Bonjour,

Voila j'ai un bout de code VBA qui me permet de saisir un texte dans une cellule. J'aimerai que après la saisie de mon texte dans la cellule,lorsque je recliquerai sur mon bouton de commande la prochaine valeur aille dans la cellule en dessous et ainsi de suite.

voici le code :

Mesure = imputBox(prompt :=" saisir texte")
If mesure = "" then
exit sub
else
Range ("A3").Value = mesure

end if

end sub

Merci d'avance pour toutes vos réponses
Configuration: Windows XP
Firefox 3.0.9

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Re,

    Merci déja d'avoir put répondre aussi vite, ton code marche du feu de dieu lol donc un grand MERCI

    A bientôt
    1. Modérateur
      Salut,
      Attention à être bien précis en codant : imput au lieu de input, Mesure au lieu de mesure. Voici ton code corrigé :
      mesure = InputBox(prompt:=" saisir texte")
      If mesure = "" Then
      Exit Sub
      Else
      Range("A3").Select
      Do While ActiveCell <> ""
      ActiveCell.Offset(1, 0).Select
      Loop
      ActiveCell = mesure
      End If