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 Condition if probablement mal montée

Condition if probablement mal montée

3 réponses
Avatar
Stéphan DuQuébec
Bien le bonjour,

J'y vais tout de suite avec la courte procédure qui me cause problème....

_______________________________________
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Not Intersect(ActiveCell, Range("P26:P50")) Is Nothing Then

If ActiveCell = "" Then
If Range("ZoneBidon1", ActiveCell.Row) = "" Then
ActiveCell.Value = ""
ActiveCell.Select
MsgBox "UNE (OU PLUSIEURS) INFORMATION DES COLONNES PRÉCÉDENTES
N'EST TOUJOURS PAS PRÉSENTE. BLA BLA BLA....."
Else
Exit Sub
End If
Else
Exit Sub

End If

End If

End Sub
_______________________________________________

J'ai toujours un mesage d'erreur correpondant à ma 3e condition :
If Range("ZoneBidon1", ActiveCell.Row) = "" Then

Et ce malgré les différentes variantes de script que je peux imaginer.

ZoneBidon1 étant une plage de cellules.

Quelqu'un peut-il me fournir un script qui serait valide ?

Le plus grand merci.
Signaler un problème avec ce contenu

3 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
Patrick Fredin
Bonjour,

On ne peut pas écrire

Range("ZoneBidon1", ActiveCell.Row)

parce que la méthode "Range" contient des références de cellules. Hors
"ActiveCell.Row" n'est pas une référence de cellule.

--
Patrick

"Stéphan DuQuébec" wrote in
message news:

Bien le bonjour,

J'y vais tout de suite avec la courte procédure qui me cause problème....

_______________________________________
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Not Intersect(ActiveCell, Range("P26:P50")) Is Nothing Then

If ActiveCell = "" Then
If Range("ZoneBidon1", ActiveCell.Row) = "" Then
ActiveCell.Value = ""
ActiveCell.Select
MsgBox "UNE (OU PLUSIEURS) INFORMATION DES COLONNES PRÉCÉDENTES
N'EST TOUJOURS PAS PRÉSENTE. BLA BLA BLA....."
Else
Exit Sub
End If
Else
Exit Sub

End If

End If

End Sub
_______________________________________________

J'ai toujours un mesage d'erreur correpondant à ma 3e condition :
If Range("ZoneBidon1", ActiveCell.Row) = "" Then

Et ce malgré les différentes variantes de script que je peux imaginer.

ZoneBidon1 étant une plage de cellules.

Quelqu'un peut-il me fournir un script qui serait valide ?

Le plus grand merci.



Avatar
Stéphan DuQuébec
Je te remercie de la précision. Mais je tente bien d'utiliser une autre
déclaration pour cibler les cellules situées sur la même ligne que ma cellule
active, mais dans d'autres colonnes; sans succès.

Je n'ai réussis pas plus avec un Intersect.

Proposition ?

Ciao.



Bonjour,

On ne peut pas écrire

Range("ZoneBidon1", ActiveCell.Row)

parce que la méthode "Range" contient des références de cellules. Hors
"ActiveCell.Row" n'est pas une référence de cellule.

--
Patrick

"Stéphan DuQuébec" wrote in
message news:

Bien le bonjour,

J'y vais tout de suite avec la courte procédure qui me cause problème....

_______________________________________
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Not Intersect(ActiveCell, Range("P26:P50")) Is Nothing Then

If ActiveCell = "" Then
If Range("ZoneBidon1", ActiveCell.Row) = "" Then
ActiveCell.Value = ""
ActiveCell.Select
MsgBox "UNE (OU PLUSIEURS) INFORMATION DES COLONNES PRÉCÉDENTES
N'EST TOUJOURS PAS PRÉSENTE. BLA BLA BLA....."
Else
Exit Sub
End If
Else
Exit Sub

End If

End If

End Sub
_______________________________________________

J'ai toujours un mesage d'erreur correpondant à ma 3e condition :
If Range("ZoneBidon1", ActiveCell.Row) = "" Then

Et ce malgré les différentes variantes de script que je peux imaginer.

ZoneBidon1 étant une plage de cellules.

Quelqu'un peut-il me fournir un script qui serait valide ?

Le plus grand merci.








Avatar
LSteph
Bonsoir,
déclaration pour cibler les cellules situées sur la même ligne que ma
cellule
active, mais dans d'autres colonnes
Si ces colonnes ont le target de ton SelectionChange ?...


If activecell.row =target.row then
'...


'lSteph

"Stéphan DuQuébec" a écrit dans le
message de news:

Je te remercie de la précision. Mais je tente bien d'utiliser une autre
déclaration pour cibler les cellules situées sur la même ligne que ma
cellule
active, mais dans d'autres colonnes; sans succès.

Je n'ai réussis pas plus avec un Intersect.

Proposition ?

Ciao.



Bonjour,

On ne peut pas écrire

Range("ZoneBidon1", ActiveCell.Row)

parce que la méthode "Range" contient des références de cellules. Hors
"ActiveCell.Row" n'est pas une référence de cellule.

--
Patrick

"Stéphan DuQuébec" wrote in
message news:

Bien le bonjour,

J'y vais tout de suite avec la courte procédure qui me cause
problème....

_______________________________________
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Not Intersect(ActiveCell, Range("P26:P50")) Is Nothing Then

If ActiveCell = "" Then
If Range("ZoneBidon1", ActiveCell.Row) = "" Then
ActiveCell.Value = ""
ActiveCell.Select
MsgBox "UNE (OU PLUSIEURS) INFORMATION DES COLONNES
PRÉCÉDENTES
N'EST TOUJOURS PAS PRÉSENTE. BLA BLA BLA....."
Else
Exit Sub
End If
Else
Exit Sub

End If

End If

End Sub
_______________________________________________

J'ai toujours un mesage d'erreur correpondant à ma 3e condition :
If Range("ZoneBidon1", ActiveCell.Row) = "" Then

Et ce malgré les différentes variantes de script que je peux imaginer.

ZoneBidon1 étant une plage de cellules.

Quelqu'un peut-il me fournir un script qui serait valide ?

Le plus grand merci.