[XL-2007] Macro affichant un message en fonction de valeur d'une cellule. [Résolu]

[brunounours]

Bonjour,

Je souhaiterai créer une macro réalisant la fonction suivante:

Pour chaque ligne,

lorsque la valeur dans la colonne AD est =""

Il ne faut pas que je puisse toucher aux colonnes "AG:AL" et que le message suivant apparaisse: "d'abord remplir la colonne AG"

Je ne px pas utiliser la validation de donnèe dans mon probleme :-(

Dans les colonnes "AG:AL" j'ai des valeurs par défaut donc je ne peux pas utiliser de .Clearcontent

Merci d'avance de votre aide

Bruno

[patricktoulon]

bonjour

Envoyé par brunounours

Bonjour,

lorsque la valeur dans la colonne AD est =""

Il ne faut pas que je puisse toucher aux colonnes "AG:AL" et que le message suivant apparaisse: "d'abord remplir la colonne AG"

Bruno

dans ta question il y a une contradiction

revoit ta question si tu veux que l'on te comprenne

[brunounours]

Bonjour,

Effectivement, je me suis trompé. Voila une correction de mon message,

Je souhaiterai créer une macro réalisant la fonction suivante:

Pour chaque ligne,

lorsque la valeur dans la colonne AD est =""
Il ne faut pas que je puisse toucher aux colonnes "AG:AL" et que le message suivant apparaisse: "d'abord remplir la colonne AD"
Je ne px pas utiliser la validation de donnèe dans mon problème :-(

Dans les colonnes "AG:AL" j'ai des valeurs par défaut donc je ne peux pas utiliser de .Clearcontent

Merci d'avance de votre aide

Bruno

[patricktoulon]

bonjour
ok
alors

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  '1 ere condition 
'si l'index de la colonne est plus grand que 32 et plus petit que 39 
 If Target.Column > 32 And Target.Column < 39 Then
'2eme condition       
'si la cellule en colonne ad et meme ligne que la selection actuelle est vide alors 
 If Cells(Target.Row, "ad") = "" Then
            MsgBox "d'abord remplir la colonne AD!!!"
        End If 'fin de 2 eme condition
    End If ' fin de 1 ere condition 
End Sub

au plaisir

[brunounours]

Merci c'est tout bon voila ce que j'ai mis:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Blocage celulles moteur
 
 '1 ere condition
'si l'index de la colonne est plus grand que 32 et plus petit que 39
 If Target.Column > 32 And Target.Column < 39 Then
'2eme condition
'si la cellule en colonne ad et meme ligne que la selection actuelle est vide alors
 If Cells(Target.Row, "ad") = "" Then
 
            MsgBox "Rellenar presencia motor antes", vbCritical
            Range("AG" & Target.Row & ":AL" & Target.Row).ClearContents
        End If 'fin de 2 eme condition
    End If ' fin de 1 ere condition

Bonne soirèe :-)