Problème code vba modification cellules

Version imprimable

18/07/2017, 14h55
adrien1987

Problème code vba modification cellules
Bonjour,

je rencontre un souci, avec un code Vba "pour les modifications cellules"
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then MsgBox "attention modification sup" End If End Sub
Ce code est très bien, le seul soucie ces que je voudrais que le msg s'affiche qu'a la deuxième modifications, ou quand on veut supprimé la cellule !

Cela est t'il possible ?

Merci par avance :lol:
18/07/2017, 15h29
riaolle

Bonjour,
supprimer veut-il dire que tu effaces le contenu de la cellule ? Si c'est bien le cas, tu peux utiliser :

Code:

If Not Application.Intersect(Target, Range("A1")) Is Nothing And Target.Value = "" Then MsgBox "effacé"

Citation:

je voudrais que le msg s'affiche qu'a la deuxième modifications

Ca devient un peu plus compliqué ... Je te propose quelque chose, mais je ne sais pas du tout si c'est efficace. Tu peux utiliser une autre feuille (nommons la "comptes"). Grace à l'évènement Change, si tu changes la cellule A2 par ex., tu ajoutes 1 à la cellule A2 de la feuille compte. Ensuite, si la valeur de la cellule A2 est supérieure strictement à 1 alors tu affiches la msgbox.
Mais ça risque d'être très lourd comme processus ....
18/07/2017, 15h39
adrien1987
merci pour ta réponse !

Excuse moi je suis débutant en VBA :oops:

Donc le code VBA, copier / coller sur ma feuille "worksheet"
Code:

1 2 3 4 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing And Target.Value = "" Then MsgBox "effacé" End If End Sub
Cela me fais une erreur :(

Oui ma question c'était bien pour quand tu veut effacé la cellule, qu'il y a un Msgbox qui préviens que le contenue va être effacé !

Attention 2 syntaxes possibles de la condition If :
Code:

1 2 3 4 5 If ma_condition Then l_action '-------- OU -------- If ma_condition Then l_action End If

18/07/2017, 16h55
adrien1987

D'accord je ne sais pas merci pour l'info !

Mes je ne sais pas ou le placé dans le code :?

peut tu m'aidé à rédigé le code ?

En fait dans mon post #4 je t'explique ce qui est faux dans le post #3.
Ce N'est PAS :

Code:

1 2 3 4 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing And Target.Value = "" Then MsgBox "effacé" End If End Sub

Mais
Code:

1 2 3 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing And Target.Value = "" Then MsgBox "effacé" End Sub
Ou
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing And Target.Value = "" Then MsgBox "effacé" End If End Sub
Essaie déjà ceci pour voir si cela correspond à ce que tu veux.

Pour la suite, si on essaie de faire ce que j'ai proposé plus tôt :

Citation:

Je te propose quelque chose, mais je ne sais pas du tout si c'est efficace. Tu peux utiliser une autre feuille (nommons la "comptes"). Grace à l'évènement Change, si tu changes la cellule A2 par ex., tu ajoutes 1 à la cellule A2 de la feuille compte. Ensuite, si la valeur de la cellule A2 est supérieure strictement à 1 alors tu affiches la msgbox.

Je sais pas trop pourquoi je t'ai parlé de A2, mais en fait c'est avec A1 qu'on travaille ...
On continue à utiliser l'évènement change. Cette fois-ci, on effectue les operations suivantes : si target change, alors

On ajoute 1 à la même cellule que target mais dans la feuille "compte"
On lance la msgbox si la cellule correspondante à target dans la feuille "compte" > 1.
Code:

1 2 3 4 5 6 7 8 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then With Sheets("compte").Range("A1") .Value = .Value + 1 '<--- on ajoute 1 au compte de modifications. If .Value > 1 Or Target.Value="" Then MsgBox "attention modification sup" '<--- on lance la msgbox si le compte > 1 ou si on a fait une suppression dans A1 End With End If End Sub

19/07/2017, 17h09
adrien1987
bonjour

Je te remercie pour ces codes Vba, cela ma bien aidé : P
Par contre le code Vba que j'ai choisi ne prend pas en compte les cellules fusionnées !
Aurais-tu une astuce ?
Car il me donne ce code "erreur d'exécution '13' incompatibilité de type"
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A19:yc51")) Is Nothing And Target.Value = "" Then MsgBox "effacé" End If End Sub
En gros pas pourvoir supprimé les données de toute la feuille sans qu'il y a un msg :)

merci a toi par avance

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Worksheet_Change(ByVal Target As Range)
Static NbCel as long,modif as boolent
If NbCel>Application.WorksheetFunction.CountA(Target.parent.usedrange) then
Mesgbox "sup"
modif=false
Else
If modif= true then Msgbox "modifier"
modif= not modif
End if
NbCel=Application.WorksheetFunction.CountA(Target.parent.usedrange)
 
End Sub

Citation:
Envoyé par dysorthographie
Bonjour,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Change(ByVal Target As Range) Static NbCel as long,modif as boolent If NbCel>Application.WorksheetFunction.CountA(Target.parent.usedrange) then Mesgbox "sup" modif=false Else If modif= true then Msgbox "modifier" modif= not modif End if NbCel=Application.WorksheetFunction.CountA(Target.parent.usedrange) End Sub
je te rermerci e pour ta réponse

Ca me donne un code erreur

Cela ne marche pas!!
tu le copie dans "thisworbook" rien ne ce passe !!
Mes quand je copie dans la feuille code erreur "erreur de compilation type défini par l'utilisateur non défini :?

20/07/2017, 07h47
riaolle

Attention, erreur de frappe :
Mesgbox "sup" ---> MsgBox "sup"

1 pièce(s) jointe(s)

Bonjour,
Merci riaolle.

Code:

1
2
3
Private Sub Workbook_Open()
 NbCel = Application.WorksheetFunction.CountA(Sheets("Feuil1").UsedRange)
End Sub

Code:

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
Cells_Change Target
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public NbCel As Long
Public Sub Cells_Change(ByVal Target As Range)
Static modif As Boolean
If NbCel > Application.WorksheetFunction.CountA(Target.Parent.UsedRange) Then
    MsgBox "sup"
modif = False
Else
    If modif = True Then MsgBox "modifier":
    modif = Not modif
End If
NbCel = Application.WorksheetFunction.CountA(Target.Parent.UsedRange)
End Sub

21/07/2017, 00h27
adrien1987

Désoler pour le retard J'etait over bouquet..
Je tiens à vous remercie de votre aide !!
Heureusement qu'il y a des personnes comme vous sur les forums pour aidé les novices sans contrepartie.

Merci et encore :-)

Je vous tiens au jus
21/07/2017, 03h10
clementmarcotte

Citation:

Envoyé par adrien1987

over bouquet..

Je vous tiens au jus

Faire passer Overbooked (surchargé de travail) à au-dessus d'un bouquet, faut le faire.
21/07/2017, 16h13
adrien1987

Citation:

Envoyé par clementmarcotte

Faire passer Overbooked (surchargé de travail) à au-dessus d'un bouquet, faut le faire.

Désoler Siri "iphone" a mal compris !!:ptdr:

Citation:

Envoyé par dysorthographie

Bonjour,
Merci riaolle.

Code:

1
2
3
Private Sub Workbook_Open()
 NbCel = Application.WorksheetFunction.CountA(Sheets("Feuil1").UsedRange)
End Sub

Code:

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
Cells_Change Target
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public NbCel As Long
Public Sub Cells_Change(ByVal Target As Range)
Static modif As Boolean
If NbCel > Application.WorksheetFunction.CountA(Target.Parent.UsedRange) Then
    MsgBox "sup"
modif = False
Else
    If modif = True Then MsgBox "modifier":
    modif = Not modif
End If
NbCel = Application.WorksheetFunction.CountA(Target.Parent.UsedRange)
End Sub

Bonjour a toi

peut-on rajouter une icône attention, quand le texte box apparaît

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public NbCel As Long
Public Sub Cells_Change(ByVal Target As Range)
Static modif As Boolean
If NbCel > Application.WorksheetFunction.CountA(Target.Parent.UsedRange) Then
    MsgBox "Vous allez supprimé les données, pour revenir en arriére CTRL+Z"
modif = False
Else
    If modif = True Then MsgBox "Attention cette cellule a déja des données":
    modif = Not modif
End If
NbCel = Application.WorksheetFunction.CountA(Target.Parent.UsedRange)
End Sub

Merci ;)

21/07/2017, 17h03
adrien1987

C'est bon j'ai trouvé !!

Par contre j'aimerais sauter une ligne dans le msg !

C'est possible ?

Code:

Rep = MsgBox("Vous allez supprimer les données, pour récupérer les données appuyées simultanément sur CTRL+Z", vbOKOnly + vbExclamation, "ATTENTION")
21/07/2017, 22h32
Invité

Bonsoir,

Code:

Rep = MsgBox("Vous allez supprimer les données, " & VbCrlf & "pour récupérer les données appuyées simultanément sur CTRL+Z", vbOKOnly + vbExclamation, "ATTENTION")

Bonjour,
Oui avec quelque chose qui ressemblerait à cela

Code:

1
2
3
4
5
6
7
dim texte as string
dim enhaut as string
dim enbas as string
enhaut = "Vous allez supprimer les données. Pour récupérer les données, "
enbas = "appuyez simultanément sur  CTRL+Z."
texte = enhaut & vbnewline & enbas
Rep = MsgBox(texte, vbOKOnly + vbExclamation, "ATTENTION")

22/07/2017, 00h30
adrien1987

Merci à vous
Je test cela lundi matin à la première heure
Cdlt

1 pièce(s) jointe(s)

Citation:
Envoyé par dysorthographie
Bonjour,
Merci riaolle.
Code:

1 2 3 Private Sub Workbook_Open() NbCel = Application.WorksheetFunction.CountA(Sheets("Feuil1").UsedRange) End Sub
Code:

1 2 3 Private Sub Worksheet_Change(ByVal Target As Range) Cells_Change Target End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public NbCel As Long Public Sub Cells_Change(ByVal Target As Range) Static modif As Boolean If NbCel > Application.WorksheetFunction.CountA(Target.Parent.UsedRange) Then MsgBox "sup" modif = False Else If modif = True Then MsgBox "modifier": modif = Not modif End If NbCel = Application.WorksheetFunction.CountA(Target.Parent.UsedRange) End Sub
Bonjour a vous

Le code VBA marche nickel, le seul souci ces qu'il ne prend pas en compte les cellules fusionnées.
Une ligne sur deux le msg textbox apparaît "modif", mais il n'y a rien comme les cellules sont vides

Voir fichier joint:

Pièce jointe 297703

09/08/2017, 00h38
adrien1987

?? Pas de réponse ??
09/08/2017, 21h29
clementmarcotte

Ne jamais utiliser de cellules fusionnées.