retour de ligne dans excel

Question

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

DevLok · Answer

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

Retour de ligne dans excel

1 réponse

Votre réponse

Discussions similaires