Première ligne vide

Résolu

Oliviercroon Messages postés 33 Statut Membre -
Oliviercroon Messages postés 33 Statut Membre - 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

Afficher la suite

A voir également:

Première ligne vide
Supprimer page word vide - Guide
Partager photos en ligne - Guide
Premiere pro gratuit - Télécharger - Montage & Édition
Apparaitre hors ligne instagram - Guide
Mètre en ligne - Guide

1 réponse

Réponse 1 / 1
pilas31 Messages postés 1878 Statut Contributeur 648

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 ?
0
1. Oliviercroon Messages postés 33 Statut Membre
  
  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?
  
  0
2. Oliviercroon Messages postés 33 Statut Membre
  
  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
  
  0
3. Oliviercroon Messages postés 33 Statut Membre
  
  lorsque je valide, il ne me rajoute pas la ligne il écrase la précedente
  
  0
4. Oliviercroon Messages postés 33 Statut Membre
  
  je peux voue envoyé mon fichier directement, comme cela vous auriez plus facil?
  
  0
5. pilas31 Messages postés 1878 Statut Contributeur 648
  
  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
  
  0

Première ligne vide

1 réponse

Discussions similaires

Newsletters