Discussion :

[mia64]

Bonjour

Voila, j'ai un soucis, j'ai créer un bouton où lorsque l'on clique dessus une fenêtre apparait pour nous demander de rentrer le nom du patient que l'on souhaite supprimer puis demande le nombre de semaine où l'on veut le supprimer.
La macro que j'ai créer marche très bien sur l'onglet actif (là où on clique sur le bouton) mais ne marche pas sur les autres pages. Je vois qu'il trouve le mot, il le sélectionne mais ne le supprime pas et je ne comprend pas pourquoi !

Est ce que quelqu'un saurait pourquoi?

Voici le code qui s'exécute :

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
     Dim resultat As Integer
     Dim mot As String
     Dim Cel As Range, Plage As Range
 
     mot = InputBox("Quel patient voulez-vous supprimer ?", "Effacer le patient")
     resultat = InputBox("Pour combien de semaine souhaitez-vous supprimer ce patient ?", "Effacer le patient") 'La variable reçoit la valeur entrée dans l'InputBox
     Set Plage = Range("A4:AA61")
 
     For i = ActiveSheet.Index To (ActiveSheet.Index + resultat - 1)
        Sheets("Semaine " & i).Select
        For Each Cel In Plage
        If Cel Like "*" & mot & "*" Then
            Cel.ClearContents
        End If
        Next Cel
    Next
 
End Sub

[joe.levrai]

Bonjour,

voilà ce qui arrive quand on ne rattache pas des ranges à leur feuille


ta ligne 13, met là plutôt entre la ligne 16 et 17

là, ta variable Plage est définie sur la feuille active en début de macro ... ensuite tu boucles sur les feuilles mais tu n'as pas réaffecté Plage à la feuille analysée

[antonysansh]

Bonjour

Avec Set Plage = Range("A4:AA61") tu déclares une plage de la feuille active.
Donc si tu tests MsgBox plage.Parent.Name tu auras toujours le nom de la feuille active lors du Set sur Plage.

Tu dois donc refaire Set Plage = Range("A4:AA61") a chaque sélection d'une nouvelle feuille.

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
     Dim resultat As Integer
     Dim mot As String
     Dim Cel As Range, Plage As Range
 
     mot = InputBox("Quel patient voulez-vous supprimer ?", "Effacer le patient")
     resultat = InputBox("Pour combien de semaine souhaitez-vous supprimer ce patient ?", "Effacer le patient") 'La variable reçoit la valeur entrée dans l'InputBox
 
     For i = ActiveSheet.Index To (ActiveSheet.Index + resultat - 1)
        Sheets("Semaine " & i).Select
        Set Plage = Range("A4:AA61")
        For Each Cel In Plage
        If Cel Like "*" & mot & "*" Then
            Cel.ClearContents
        End If
        Next Cel
    Next
 
End Sub

PS : Il est toujours conseillé de préciser les parents d'un Objet.
Exemple : ThisWorkbook.ActiveSheet.[A1] plutôt que [A1]

EDIT : Joe, t'es vraiment trop rapide

[Marc-L]

Bonjour, bonjour !

Soit dit en passant, définir une variable pour une plage de cellules
pour un usage unique est un peu cul-cul, pour ne pas dire con-con !

Autant utiliser directement Worksheets.Range sans Select, cela fait gagner du temps d'exécution et évite cette erreur …

Bye-Bye !

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie-Charlie - Je suis Bardo-Bardo

[patricktoulon]

Bonjour
a l'inverse de Marc je pense qu'une variable global a toute sa place ici mais en string
et le select tu le vire


ou alors en dur dans la ligne si la plage est identique pour tous les sheets

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
Dim resultat As Integer
     Dim mot As String
     Dim Cel As Range, Plage As string
 
     mot = InputBox("Quel patient voulez-vous supprimer ?", "Effacer le patient")
     resultat = InputBox("Pour combien de semaine souhaitez-vous supprimer ce patient ?", "Effacer le patient") 'La variable reçoit la valeur entrée dans l'InputBox
     Plage = "A4:AA61"' 'en string 
 
     For i = ActiveSheet.Index To (ActiveSheet.Index + resultat - 1)
                For Each Cel In Sheets("Semaine " & i).range(Plage)
       'ou sans variable !!!!  For Each Cel In Sheets("Semaine " & i).range( "A4:AA61" )
 If Cel Like "*" & mot & "*" Then
            Cel.ClearContents
        End If
        Next Cel
    Next

[Marc-L]

Salut Patrick !

Ta ligne de code n°11 est la parfaite illustration de mon précédent message !

[patricktoulon]

[mia64]

Merci beaucoup à tous le monde de m'avoir répondu !! Ca marche !!!!