1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Retour de ligne dans excel

toledo9
Messages postés
22
Date d'inscription
mardi 25 janvier 2011
Statut
Membre
Dernière intervention
31 mars 2022
 - 31 janv. 2012 à 13:52
DevLok
Messages postés
13
Date d'inscription
mardi 24 janvier 2012
Statut
Membre
Dernière intervention
3 février 2012
 - 31 janv. 2012 à 14:00
Bonjour,

J'aimerais insérer une nouvelle ligne en dessous dans mon code ça marche à l'envers.

ex : Nom Premom etc
je voudrais que lorsque je clique sur mon bouton je passe à ligne en dessous et non au dessus

voici mon code

Private Sub CommandButton2_Click()
Rows(1).Select
Selection.Insert
If Range("A2") = True Then
Range("A2") = "Femme"
Else
Range("A2") = "Homme"
End If
End Sub

Merci pour l'aide

1 réponse

Réponse 1 / 1
DevLok
Messages postés
13
Date d'inscription
mardi 24 janvier 2012
Statut
Membre
Dernière intervention
3 février 2012
31 janv. 2012 à 14:00
Salut,

ActiveSheet.Range("a65536").End(xlUp).Row + 1 te donne la première ligne vide de la colonne A.

si j'ai compris ca pourrais donner ca, met ton code ecrit toujours homme.

[i]Rows(ActiveSheet.Range("a65536").End(xlUp).Row + 1).Select
Selection.Insert
If Range("A" & ActiveSheet.Range("a65536").End(xlUp).Row + 1) = True Then
Range("A" & ActiveSheet.Range("a65536").End(xlUp).Row + 1) = "Femme"
Else
Range("A" & ActiveSheet.Range("a65536").End(xlUp).Row + 1) = "Homme"
End If/i

A Plouche
0