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

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
Rejoignez-nous