Discussion :

[ronin.01]

bonjour,

Je suis débutant dans le vba. J'ai créé une macro pour supprimer une ligne en se positionnant sur la cellule de la ligne concernée :

Code :

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

1
2
3
4
5
6
Private Sub CommandButton2_Click()
Dim R As Integer
R = ActiveCell.Row
Rows(R).Select
Rows(R).EntireRow.Delete Shift:=xlUp
End Sub

Par contre sur la 1ere cellule de la ligne suivante je voudrais que soit affiché la valeur "1", comment faut il procéder?

Merci pour votre aide
Cordialement
ronin.01

[LouiMz]

Bonjour,

Si j'ai bien compris:

Code :

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

1
2
3
4
5
6
Private Sub CommandButton2_Click()
Dim R As Integer
R = ActiveCell.Row
Range("A" & R+1).value = 1 'On met la valeur 1 sur la 1er cellule de la ligne au dessous de la ligne active
Rows(R).Delete (xlUp) 'Puis on supprime la ligne contenant la cellule active
End Sub

Cordialement

[Theze]

Bonjour,

Quand tu supprime la ligne entière de la cellule sélectionnée, la cellule située sur la même colonne de la ligne suivante devient la cellule active, si c'est sur cette dernière que tu veux écrire 1 alors fait ceci :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
 
    ActiveCell.EntireRow.Delete
    ActiveCell = 1
 
End Sub

Si tu veux que se soit sur la ligne dessous la cellule qui est devenue la cellule active alors, fait celà :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
 
    ActiveCell.EntireRow.Delete
    ActiveCell.Offset(1, 0) = 1
 
End Sub

Hervé.

[ronin.01]

Merci pour vos réponses ma macro fonctionne bien maintenant. J'aurai une autre question dans le même style.

J'ai une autre macro mais cette fois pour ajouter une ligne, elle fonctionne correctement, cependant je suis obligé de me positionner sur une cellule pour lancer la macro. Comment dans le code je dois préciser sur quelle cellule se positionner pour lancer la procédure?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim R As Integer
R = ActiveCell.Row
Rows(R).Select
If MsgBox("Voulez-vous ajouter une ligne ?", _
                    vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
Selection.Insert Shift:=xldwon
Range("a" & R - 1).Select
Selection.Copy
Range("a" & R).Select
ActiveSheet.Paste
...........

Cordialement
ronin.01

[Theze]

Bonsoir,

Une possibilité parmis bien d'autres avec une inputbox :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub CommandButton1_Click()
 
    Dim R As Range
    Dim Adr As String
 
 
    If MsgBox("Voulez-vous ajouter une ligne ?", _
              vbYesNo + vbQuestion + vbDefaultButton2, _
              "Ajout") = vbYes Then
 
        Adr = InputBox("Avant quelle cellule voulez-vous faire l'insertion ?", "Cellule.")
 
        'gère l'erreur d'une mauvaise saisie
        On Error Resume Next
        Set R = Range(Adr)
 
        If Err.Number <> 0 Then
            MsgBox "Erreur de saisie dans l'adresse !"
            Exit Sub
        End If
 
        On Error GoTo 0
 
        'insère une cellule au dessus de la cellule de référence
        R.Insert xlShiftDown
 
        'copie la valeur de la cellule située au dessus
        'de la cellule ajoutée dans la cellule ajoutée
        R.Offset(-2, 0).Copy R.Offset(-1, 0)
 
    End If
 
    'ici ton code...
 
End Sub

Hervé.