Première ligne vide

Résolu/Fermé

Oliviercroon Messages postés 33 Date d'inscription jeudi 5 avril 2018 Statut Membre Dernière intervention 9 février 2020 - Modifié le 27 févr. 2019 à 11:10
Oliviercroon Messages postés 33 Date d'inscription jeudi 5 avril 2018 Statut Membre Dernière intervention 9 février 2020 - 27 févr. 2019 à 14:15

Rows(4).Insert
Range("a4").Value = ComboBox1.Text
Range("b4").Value = ComboBox2.Text
Range("c4").Value = TextBox1.Text
Range("d4").Value = TextBox2.Text
Unload Me
UserForm1.Show

Bonjour,
voici un code que j'ai pour compléter une feuille excel. (ci dessus)
avec ce code, on insert une ligne au début, ce qui me fait perdre les formules de calcul
j'aurais aimé pouvoir remplir a partir de la première ligne vide
j'ai déjà trouvé des codes mais il y a toujours un problème

merci d'avance.

Olivier

A voir également:

Première ligne vide
Aller à la ligne excel - Guide
Hors ligne instagram - Guide
Vente en ligne particulier - Guide
Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
Partage de photos en ligne - Guide

1 réponse

Réponse 1 / 1

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
27 févr. 2019 à 11:24

Bonjour,

Ce sujet est bien traité ici :

https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne

Quelles sont les solutions essayées et les problèmes rencontrés ?

Oliviercroon Messages postés 33 Date d'inscription jeudi 5 avril 2018 Statut Membre Dernière intervention 9 février 2020
27 févr. 2019 à 11:55

Merci pour la réponse, est-il possible aussi de ne faire chercher que dans une partie de colonne, exemple entre la A4 et A26?

Oliviercroon Messages postés 33 Date d'inscription jeudi 5 avril 2018 Statut Membre Dernière intervention 9 février 2020
27 févr. 2019 à 13:04

Dim DernLigne As Long
DernLigne = Range("A4:A26").End(xlUp).Row + 1

Range("a4" & derligne).Value = ComboBox1.Text
Range("b4" & derligne).Value = ComboBox2.Text
Range("c4" & derligne).Value = TextBox1.Text
Range("d4" & derligne).Value = TextBox2.Text
Unload Me
UserForm1.Show

Oliviercroon Messages postés 33 Date d'inscription jeudi 5 avril 2018 Statut Membre Dernière intervention 9 février 2020
27 févr. 2019 à 13:05

lorsque je valide, il ne me rajoute pas la ligne il écrase la précedente

Oliviercroon Messages postés 33 Date d'inscription jeudi 5 avril 2018 Statut Membre Dernière intervention 9 février 2020
27 févr. 2019 à 13:09

je peux voue envoyé mon fichier directement, comme cela vous auriez plus facil?

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié le 27 févr. 2019 à 14:01

D'abord, il y a une erreur entre DerLigne et derligne ensuite la syntaxe correcte est la suivante :

Dim dernligne As Long
derligne = Range("A1048576").End(xlUp).Row + 1
Range("a" & derligne).Value = ComboBox1.Text
Range("b" & derligne).Value = ComboBox2.Text
Range("c" & derligne).Value = TextBox1.Text
Range("d" & derligne).Value = TextBox2.Text
Unload Me
UserForm1.Show

A tester

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

Que veut dire "correspondant occupé" lors d'un appel ?

Formaté mais pas de connexion Internet ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters