Test VBA avec IsEmpty ?

[kalgath]

Bonjour à tous,

Je suis super débutant en VBA et j'essaye de faire un test tout bête : si ma cellule A1 est vide alors je veux que s'affiche le message "la cellule A1 est vide". Et si il y a quelque chose d'inscrit en A1, alors j'aimerais avoir le message "la cellule A1 est remplie".

Ma tentative :

Sub test()
    If IsEmpty(A1) = True Then
    MsgBox "la cellule A1 est vide"
    Else
    MsgBox "la cellule A1 est pleine"
    End If
End Sub

Le problème avec ce code c'est qu'il ne marche pas du tout. Qu'elle soit vide ou qu'elle soit pleine, le message "la cellule A1 est vide" s'affiche systématiquement.

Où ce trouve mon erreur ?

D'avance merci pour votre aide !!! 🙂

K.

 

[Dranreb]

Re : Test VBA avec IsEmpty ?

Tout à fait d'accord.

 

[municchi]

Bonjour,

J'ai un fichier ou j'ai des données (Classeur1.xlsx) et un autre fichier ou je traite ces données et ou se trouve la macro (Classeur1.xlsm).
Je souhaiterais transcrire en VBA; si dans Classeur1.xlsx (la colonne C2 à C1000) est non vide alors je concat à partir du fichier Classeur1.xlsx (la colonne S2 &""& la valeur dans la colonne "C" à partir de "C2"). je souterais affiché le résultat dans le Fichier Classeur1.xlsm à partir de la colonne "B2"

Est ce que quelqu'un pourrais m'aider?
En vous remerciant par avance

J'ai fait ceci jusqu'a présent;

Sub Test()

Dim Fe As Worksheet
Dim Tbl
Dim Plage As Range
Dim max As Long

Set Fe = Workbooks("classeur1.xlsx").Worksheets("OTTERSTHAL")

With Fe
max = .UsedRange.Rows.Count
Set Plage = .Range(.Cells(2, 3), .Cells(max, 3))
End With

If Fe.Range("C2") = "" Then

With ThisWorkbook.ActiveSheet
.Range(.Cells(2, 2), .Cells(max, 2)).Value = Plage.Value
.Range(.Cells(2, 2), .Cells(max, 2)).Value = Fe.Range(("S2") & " " & .Range("C2"))
End With
End If

End Sub