Discussion :

[Angeldu74]

Bonjour,
J'aimerai automatiser une feuille de calcul.
1) tout d'abord je souhaiterai ajouter un bouton d'insertion dans la barre de menu si c'est possible afin d'ajouter une ligne.
Est ce que c'est possible?
2) Quel commande permet d'ajouter une ligne?
3) Comment fait-on pour récupère les infos d'un ligne qu'on sélecionne?
Merci d'avance pour votre aide.

[fring]

Bonjour,

1) tout d'abord je souhaiterai ajouter un bouton d'insertion dans la barre de menu si c'est possible afin d'ajouter une ligne.
Est ce que c'est possible?
2) Quel commande permet d'ajouter une ligne?

Cette commande existe déjà de base sur Excel
menu Outils --> Personnaliser --> onglet Commandes --> dans la liste de gauche choisir "Insertion" --> prendre le bouton d'insertion de ligne et le faire glisser dans la barre de menu de son choix

3) Comment fait-on pour récupère les infos d'un ligne qu'on sélectionne?

Il y a différents moyens, tout dépend de ce que tu veux faire.
Par exemple pour copier la ligne dont une cellule est sélectionnée vers la ligne 25

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.EntireRow.Copy Rows(25)

[Angeldu74]

Merci pour ton aide, c'est super.
Alors en fait pour la sélection de ligne je voudrai réalisé plusieurs manipulations:
Il faudrait que je sélectionne la ligne en entier.
Ensuite je clic sur mon bouton pour faire un ajout:
Dans l'ajout, je souhaiterai reprendre les données de toute la ligne dans une page d'invite qui reprendrait les informations des colonnes A, B et C non modifiables.
Les informations de la colonne C et D pourront être ajouté.
Ensuite validation avec bouton OK ou Annuler.

Après la ligne doit être insérer...
Elle devra être replacer par ordre alphabétique...

ça fait beaucoup, j'espère avoir été précis.

Peux tu me fournir le maximum d'information stp.

[fring]

Il n'est pas nécessaire de sélectionner toute la ligne, une seule cellule dans la ligne suffit, peu importe quelle cellule.

Crée un UserForm avec 5 TextBox dont les 3 premières auront la propriété "Enabled" sur False.

A l'initialisation de ce UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Me.TextBox1 = Cells(ActiveCell.Row, 1) '<-- TextBox1 = colonne A
Me.TextBox2 = Cells(ActiveCell.Row, 2) '<-- TextBox2 = colonne B
Me.TextBox3 = Cells(ActiveCell.Row, 3) '<-- TextBox3 = colonne C
End Sub

Et pour le bouton "Valider"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim i As Byte
ActiveCell.EntireRow.Insert '<-- insertion d'une ligne
'insertion des données des 5 TextBox sur la nouvelle ligne
'dans les colonnes A à E (1 à 5)
For i = 1 To 5
    Cells(ActiveCell.Row, i) = Me.Controls("TextBox" & i)
Next
End Sub

Réalise déjà ça, on verra après pour le tri alphabétique.

Si besoin de plus d'infos sur l'utilisation d'un UserForm
Utiliser les UserForm en VBA Excel
Utiliser les contrôles dans un UserForm
.

[Angeldu74]

C'est super tout marche, j'ai un peu adapté et c'est passé comme une lettre à la poste. Merci beaucoup!
Il ne me manque qu'une vérification et le tri.
pour la vérif en fait je dois vérifier que dans la colonne A où il peut y avoir par exemple plusieurs fois marqué chien.
Il faut que je vérifie dans la deuxième colonne au moment de l'ajout si la lettre n'existe pas déjà...
ex:
chien | A
chien | D
chien | X
chien | Z
Si je fais un ajout avec la lettre C no problem sinon il y a un problème.lol
Je vais de voir faire une master boucle...

Et pour le tri il faut que j'ajoute la ligne au bon endroit afin que les lettres se suivent. Ou il y a une autre solution??
Merci encore pour ton aide!

[Angeldu74]

En cherchant un peu, voila ce que j'ai fait:
Je sélectionne tout mon tableau pour trier sur les 6 premières colonnes tout en gardant la correspondance des lignes.
Mais apparemment ce n'est pas encore bon.
Que faut-il changer stp?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim Nb_Lignes As Integer
 
Nb_Lignes = Range("A65536").End(xlUp).Row
 
'Sélection des lignes à trier
 
Range("A2:O" & Nb_Lignes).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, _
                   Key2:=Range("B2"), Order2:=xlAscending, _
                   Key3:=Range("C2"), Order3:=xlAscending, _
                   Key4:=Range("D2"), Order4:=xlAscending, _
                   Key5:=Range("E2"), Order5:=xlAscending, _
                   Key6:=Range("F2"), Order6:=xlAscending, _
                   Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal, _
        DataOption4:=xlSortNormal, DataOption5:=xlSortNormal, DataOption6:=xlSortNormal