Discussion :

[eisenvald]

Bonjour à tous

après avoir cherché un peu partout sans grand succès je demande de l'aide pour ma macro

Dans mon fichier "Liste des tâches pour les projets1", sur la feuille "Suivi", en colonne "O", j'ai des cache a cocher, une fois cocher réinitialise la ligne, cependant cela ne fonctionne que si je renseigne, manuellement la plage de cellule.

Y a t-il un moyen de réinitialisé la ligne sans renseigner la plage manuellement ?

Merci de votre aide

[Theze]

Bonjour,

Pas de fichier dès le premier post, explique clairement ce que tu veux comme résultat et postes le code que tu as déjà écris !

[antonysansh]

Bonjour

Pas certain d'avoir compris ton problème mais je pense que tu peux avoir une inspiration avec ça :

Code :

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

1
2
3
4
5
Sub Macro1()
    Dim Shp As Shape
    Set Shp = ActiveSheet.Shapes("check Box 1") '<- Remplace check Box 1 par le nom de ta case à cocher
    Shp.TopLeftCell.Select
End Sub

[eisenvald]

Voici ma macro:

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
Sub réinitialise_ligne()
'
' réinitialise_ligne Macro
'
   Dim Plage As Range, Cel As Range
 
Set Plage = Application.InputBox("Sélectionnez la plage à effacer!", "Sélection", Type:=8)
For Each Cel In Plage 'pour chaque cellule dans la plage sélectionnée
    If Left(Cel.Formula, 1) <> "=" Then 'si la cellule ne contient pas de formule
        With Cel 'dans la cellule
            .ClearContents 'supprime le contenu
            .ClearComments 'supprime le commentaire
        End With
    End If
Next

Dans ma feuille j'ai des lignes avec des formules, et je veux que après l’exécution de la macro la ligne soit vierge (tout en gardant les formules)

Code :

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

End Sub

[antonysansh]

Tu peux déjà remplacer

Code :

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

If Left(Cel.Formula, 1) <> "=" Then

par

Code :

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

If Not Cel.HasFormula Then

Ensuite comment se declanche ta macro ? Un bouton par ligne ? Une case par ligne et un seul bouton ?

[eisenvald]

Ma macro se déclenche quand je coche la case a cocher qui se trouve a chaque fin de ligne, donc chaque ligne a sa propre case a cocher et il ni y aucun autres boutons

[Theze]

Dans ma feuille j'ai des lignes avec des formules, et je veux que après l’exécution de la macro la ligne soit vierge (tout en gardant les formules)

Impossible, tu ne peux pas garder les formules avec "ClearContents", elles seront supprimées. Il faux que tu adapte tes formules de façon a ce qu'elles retournent une valeur vide "" si la case est cochée. Tu peux lier une cellule dans la ligne à la case à cocher correspondante et faire référence à cette cellule dans les formules de la ligne.
Admettons que tu est une formule de ce type en A8 :

Code :

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

1
2
 
=SOMME(A1:A7)

et bien si tu lie une cellule à ta case à cocher qui est sur la ligne 8, par exemple F8 et bien ta formule devient :

Code :

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

1
2
 
=SI(F8;SOMME(A1:A7);"")

Donc, si décochée on ne verra rien dans la cellule

[antonysansh]

Une idée parmi d'autres,

Tu peux affecter cette macro à chacun de tes cases à cocher :

Code :

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

1
2
3
4
5
6
Sub MaMacro()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(Application.Caller)
    If shp.FormControlType = xlCheckBox And shp.ControlFormat.Value = 1 Then _
        MsgBox "Action sur la ligne : " & shp.TopLeftCell.Row
End Sub