Complement code vba

Résolu
Baki -  
 Baki -
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

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
    0
  2. Baki
     
    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
    0