Test VBA avec IsEmpty ?

kalgath

XLDnaute Nouveau
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 :

Code:
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.
 

municchi

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson