XL 2013 Trouver variable de 2 cellules

[badraaliou4]

Bonjour, le forum

j'ai deux cellules, je veux que même si l'une des cellules est vide la réponse soit vide
mais mon code ne prend en charge que de la première cellule.
ci-dessous mon code

Sub SEL()
Dim lig1 As String
lig1 = Worksheets("feuil1").Range("d9 , e9").Value
If lig1 = "" Then
    MsgBox "vide"
    End If
End Sub

et ci-joint le classeur

 

[sylvanu]

Bonjour Badraaliou,
Un exemple en testant chaque cellule et un OU pour la condition.

Sub SEL()
If [D9] = "" Or [E9] = "" Then
    MsgBox "Vide"
    End If
End Sub

 

[Jacky67]

Bonjour, le forum

j'ai deux cellules, je veux que même si l'une des cellules est vide la réponse soit vide
mais mon code ne prend en charge que de la première cellule.
ci-dessous mon code

Sub SEL()
Dim lig1 As String
lig1 = Worksheets("feuil1").Range("d9 , e9").Value
If lig1 = "" Then
    MsgBox "vide"
    End If
End Sub

et ci-joint le classeur

Bonjour à tous
Essaye

Sub SEL()
If Application.CountA([D9:E9]) < 2 Then MsgBox "vide"
End Sub

 

[badraaliou4]

re,
merci,
mais je veux definir à Dim as string car j'ai beaucoup de ligne
merci d'avance

    lig1 = Worksheets("menubureau").Range("C11,d11").Value
    lig2 = Worksheets("menubureau").Range("c12,d12").Value
    lig3 = Worksheets("menubureau").Range("c13,d13").Value
    lig4 = Worksheets("menubureau").Range("c14,d14").Value
    lig5 = Worksheets("menubureau").Range("c15,d15").Value
    lig6 = Worksheets("menubureau").Range("c16,d16").Value
    lig7 = Worksheets("menubureau").Range("c17,d17").Value
    lig8 = Worksheets("menubureau").Range("c18,d18").Value
    lig9 = Worksheets("menubureau").Range("c19,d19").Value
    lig10 = Worksheets("menubureau").Range("c20,d20").Value
    lig11 = Worksheets("menubureau").Range("c21,d21").Value
    lig12 = Worksheets("menubureau").Range("c22,d22").Value

 

[badraaliou4]

Bonjour à tous
Essaye

Sub SEL()
If Application.CountA([D9:E9]) < 2 Then MsgBox "vide"
End Sub

je voulais définir par Dim as car j'ai encore plusieurs ligne et beaucoup de condition

 

[Jacky67]

Re..
Sans connaitre le but finale essaye ceci

Sub SEL()
Dim C As Range
For Each C In [d11:d22]
 If Application.CountA(Range(C.Address & ":" & C.Offset(, 1).Address)) < 2 Then MsgBox C.Address & " ou " & C.Offset(, 1).Address & " vide"
 Next
End Sub

 

[Modeste geedee]

Bonsour®
et tu crois qu'un répondeur va analyser ton code , reconstituer un classeur (multi-onglets), remplir des données fictives pour essayer de répondre à un problème que tu n'est pas en mesure d'expliciter plus clairement ??

 

[badraaliou4]

Re,
Je crois que j'ai été clair
Je voulais définir la cellule C11 et D11 à ligne1
Avec ce code ça ne trouve que la valeur de C11.

Dim ligne1 as string
Ligne1 = worksheet.range("C11,D11").value

 

[badraaliou4]

Bonsour®
et tu crois qu'un répondeur va analyser ton code , reconstituer un classeur (multi-onglets), remplir des données fictives pour essayer de répondre à un problème que tu n'est pas en mesure d'expliciter plus clairement ??

 

[Modeste geedee]

pour restituer plusieurs valeurs il faut utiliser une matrice (array)
Option base 0
Dim Ligne1(2) As String
Ligne1(0) = worksheet.range("C11").value
Ligne1(1) = worksheet.range("D11").value
For i = 0 To 2
MsgBox Ligne1(i)
Next i

 

[Jacky67]

Re...
Avec le code de ton classeur tu n'obtiendras jamais un bon résultat
Un range retourne une "address" pas une valeur(Value), et encore moins déclaré en String
Tester ceci et tu devrais comprendre

Sub SEL()
Dim lig1 As String
If [D9] <> "" Then lig1 = [D9]
If [E9] <> "" Then lig1 = [E9]
If [D9] <> "" And [E9] <> "" Then lig1 = "Les deux sont renseignés ==> " & [D9] & [E9]
If [D9] = "" And [E9] = "" Then lig1 = "Les deux sont vides"
MsgBox "Lig1= " & lig1
End Sub

Ou cela

Sub test()
Dim lig1 As String
lig1 = "Non conforme"
If [D9] <> "" And [E9] = "" Then lig1 = [D9]
If [E9] <> "" And [D9] = "" Then lig1 = [E9]
MsgBox "Lig1= " & lig1
End Sub

Puis celle-ci que j'ai déjà donnée

Sub SEL()
    If Application.CountA([D9:E9]) < 2 Then
        [d10] = ""
        MsgBox "vide"
    Else
        [d10] = "ok"
    End If
End Sub

 

[laurent950]

Bonsoir le forum :

Sub SEL()
Dim lig1 As Range 'String
Set lig1 = Worksheets("Feuil1").Range("D9:E9") / ajouter set lig1 =
If lig1(1)(1, 1) = "" And lig1(1)(1, 2) = "" Then
MsgBox "vide"
Else
[d10] = "ok"
End If
End Sub

laurent

 

[sylvanu]

Bonjour tout le monde,
Votre code ressemble furieusement à ce que j'avais proposé,

Sub SEL()
    If [D9] = "" Or [E9] = "" Then
       MsgBox "Vide"
    End If
End Sub

mais Badraaliou tient absolument à son : Dim lig1 As String, si lig1 est vide ....
Vu le nombre de messages, peut être va t-il comprendre que cette syntaxe est impossible.

 

[badraaliou4]

Re,
Bonjour et merci à vous tous....
J'ai eu une solution.
J'ai mis cette formule dans la cellule "F9"
=Si(D9="";"";Si(E9="";"";D9&" "&E9))
Puis

sub SEL()
DIM lig1 as string
lig1=range("F9").value
if lig1="" then
    msgbox "vide"
else
    [D10]="ok"
End if
End sub

Et Ça marche maintenant.

 

[badraaliou4]

Merci vraiment a tous,
J'ai un tableau de plusieurs lignes. Il faut que je passe par cette méthode pour que le code ne soit pas trop long....

Bon weekend