Insertion de données sur plages ( VBA )

[dolin007]

Salut à tous, je suis nouveau sur le forum et je tiens à dire en premier que c'est vraiment super que des sites comme celui la existent.

Voila, j'ai créé un UserForm avec différentes entrées ( zones de textes ) et un bouton ok... Ce que je veux c'est que ces entrées s'insèrent dans des plages de cellules à la suite des données déja existantes sur ces plages ( car elles ne sont pas vides ). Je voudrai en effet qu'elles s'inserent à la suite.

J'ai tenté quelques lignes, mais je débute vous l'aurez compris.

--------------------------------------------------------------------------

Private Sub ok_Click()
.Range("liste_nom").CurrentRegion = nom
.Range("liste_pays").CurrentRegion = pays
.Range("liste_adresse").CurrentRegion = adresse
.Range("liste_ville").CurrentRegion = ville
.Range("liste_cp").CurrentRegion = code_postal
End Sub

-------------------------------------------------------------------------

Voilà merci d'avance de faire avancer mon schmilblik !

 

[Bebere]

Re : Insertion de données sur plages ( VBA )

bonjour Dolin
bienvenue à toi
.Range("A1").end(xldown).row,donne la dernière cellule non vide

.Range("A1").end(xldown).row+1 la 1ère cellule vide pour y inscrire la nouvelle entrée
attention pas de cellules vides dans la colonne,commence en A1 et vers le bas
si tu as des vides employer .Range("A65536").end(xlup).row
commence en 65536(dernière ligne de la feuille et monte vers A1)
et s'arrête à la 1ère cellule non vide
pour la suite même principe que plus haut
à bientôt

 

[dolin007]

Merci !

Ca y est ! je suis débloqué grace à toi ! merci encore !