Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel MsgBox exécute pas au bon noment

MsgBox exécute pas au bon noment

2 réponses
Avatar
Daniel
Bonjour à Tous

Sur cette macro j'ai mis un message qui doit afficher
si la cellule sélectionner est vide et mettre fin a l'exécution de la macro.
ou est mon erreur !

Sub Traduire_TestCar()
Dim Ligne, Valeur
Dim MyDataObject As DataObject
Dim NomFeuille As String
Donné = ActiveSheet.Name
Application.ScreenUpdating = False
With Worksheets("Donné")
.Activate
If Not Intersect(ActiveCell, .Range("BD2:BI500")) Is Nothing Then
If ActiveCell <> "" Then
MsgBox "Utiliser une Ligne avec des DONNÉES " '______???
ActiveCell.Offset(0, 0).Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(0, 3).Select
'ici une série de commande qui marche bien
Application.ScreenUpdating = True
End If
End If
End With
End Sub

MERCI
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Daniel,

If Not Intersect(ActiveCell, .Range("BD2:BI500")) Is Nothing Then

Qu'est-ce qui se passe si cette ligne de code s'avère "úlse" , Tu ne verras jamais ton message s'afficher !


Salutations!



"Daniel" a écrit dans le message de news:
Bonjour à Tous

Sur cette macro j'ai mis un message qui doit afficher
si la cellule sélectionner est vide et mettre fin a l'exécution de la macro.
ou est mon erreur !

Sub Traduire_TestCar()
Dim Ligne, Valeur
Dim MyDataObject As DataObject
Dim NomFeuille As String
Donné = ActiveSheet.Name
Application.ScreenUpdating = False
With Worksheets("Donné")
.Activate
If Not Intersect(ActiveCell, .Range("BD2:BI500")) Is Nothing Then
If ActiveCell <> "" Then
MsgBox "Utiliser une Ligne avec des DONNÉES " '______???
ActiveCell.Offset(0, 0).Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(0, 3).Select
'ici une série de commande qui marche bien
Application.ScreenUpdating = True
End If
End If
End With
End Sub

MERCI
Avatar
Daniel
Bonsoir "michdenis"

C'est correct car lorsqu'ont sélectionne une cellule vide que je veut voir
le message.

"michdenis" a écrit dans le message de news:

Bonjour Daniel,

If Not Intersect(ActiveCell, .Range("BD2:BI500")) Is Nothing Then

Qu'est-ce qui se passe si cette ligne de code s'avère "úlse" , Tu ne
verras jamais ton message s'afficher !


Salutations!



"Daniel" a écrit dans le message de news:

Bonjour à Tous

Sur cette macro j'ai mis un message qui doit afficher
si la cellule sélectionner est vide et mettre fin a l'exécution de la
macro.
ou est mon erreur !

Sub Traduire_TestCar()
Dim Ligne, Valeur
Dim MyDataObject As DataObject
Dim NomFeuille As String
Donné = ActiveSheet.Name
Application.ScreenUpdating = False
With Worksheets("Donné")
.Activate
If Not Intersect(ActiveCell, .Range("BD2:BI500")) Is Nothing Then
If ActiveCell <> "" Then
MsgBox "Utiliser une Ligne avec des DONNÉES " '______???
ActiveCell.Offset(0, 0).Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(0, 3).Select
'ici une série de commande qui marche bien
Application.ScreenUpdating = True
End If
End If
End With
End Sub

MERCI