Inputbox

[Hulk]

Hello,

Ceci ne devrait-il pas être bon ?

Private Sub Ajout_Click()
Ajout = InputBox("Entrez une catégorie !")
If Ajout = "" Then Exit Sub
Range("AA2:AA" & Range("AA65000").End(xlUp).Row + 1) = Ajout
End Sub

Il devrait ajouter une catégorie dans la dernière ligne vide de la colonne AA, non ?

Merci.

Cdt, HUlk.

 

[Pierrot93]

Re : Inputbox

Bonjour Hulk

essaye peut être ainsi :

Range("AA65536").End(xlUp).Offset(1, 0).Value = Ajout

bon après midi
@+

 

[phlaurent55]

Re : Inputbox

Bonjour Hulk,

c'est ici que ça foire

Range("AA2:AA" & Range("AA65000").End(xlUp).Row + 1) = Ajout

à remplacer par

Range("AA" & Range("AA65000").End(xlUp).Row + 1).Value = Ajout


Edit Bonjour Pierrot

 

[Robert]

Re : Inputbox

Bonjour Hulk, bonjour le forum,

Si tu ne veux que dans la dernière cellule il vaudrait mieux :

Range("AA65536").End(xlUp).Offset(1, 0).Value = Ajout

Édition :

Ooops faut que je prenne mes vitamines là.... Bonjour Pierrot, Laurent...

 

[Hulk]

Re : Inputbox

Hello Pierrot,

Merci de me répondre.

Ben au fait, il met erreur sur cette ligne (en jaune)

Ajout = InputBox("Entrez une catégorie !")

et si je rajoute en début de procédure On Error Resume Next, même avec ta soluce, ça ne joue pas 😕

Merci encore.

Cdt, Hulk.

 

[Pierrot93]

Re : Inputbox

Re, bonjour Robert, Laurent

c'est plus la même ligne de code, tu avais :

InputBox("Entrez une catégorie !")

et maintenant :

InputBox("Entrer nom et prénom !")

essaye en déclarant bien la variable, chez moi cela fonctionne, voir peut être le type de donnée qui est saisie...

Dim Ajout As String
Ajout = InputBox("Entrer nom et prénom !")

@+

 

[Robert]

Re : Inputbox

Bonjour le fil, bonjour le forum,

Peut-être une Option Explicit qui traîne et la non déclaration de la variable Ajout (Dim Ajout As String) ???

 

[Hulk]

Re : Inputbox

Re,

Impec ça joue !

Merci bien à tous.

Cdt, Hulk.

 

[tora]

Re : Inputbox

Re,

Impec ça joue !

Merci bien à tous.

Cdt, Hulk.

ici ça passe telkel :

Sub test()
Dim ajout

ajout = InputBox("Entrez une catégorie !")
If ajout = "" Then Exit Sub
Range("AA2:AA" & Range("AA65000").End(xlUp).Row + 1) = ajout


End Sub

 

[Pierrot93]

Re : Inputbox

Re

Tora, pas sur sur que ce soit la plage "AA2:AAx" à valorisée par le contenu de l'inputbox, car c'est ce que doit faire ton code, enfin me semble t'il...