XL 2013 Définir deux cellules à une variable avec Dim as String

badraaliou4 · 13 Décembre 2019

Merci de votre aide
ça ne prend pas la valeur de la deuxième colonne. D11

VB:

Sub retrait()
    Dim lig1 As String
'trouver les informations du contenu
    lig1 = Worksheets("menubureau").Range("C11,d11").Value 'ça ne TROUVE que la valeur de la cellule c11

fanfan38 · 14 Décembre 2019

Bonjour
Que veux tu faire exactement
si c11="Essai" et D11="Moi" lig1=EssaiMoi?
A+ François

Jacky67 · 14 Décembre 2019

Re..
Puisque tu insistes après avoir eu une vingtaine de réponses dans le post précédent, une dernière

VB:

Sub SEL()
    Dim lig1 As Boolean
    lig1 = Application.CountA([D9:E9]) = 2
    If lig1 Then
        MsgBox "Exécution de la macro"
    Else
        MsgBox "N'exécute pas la macro"
    End If
End Sub

XL 2013 Définir deux cellules à une variable avec Dim as String

badraaliou4

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Discussions similaires