vérifier si cellules pleines

[Flop]

bonjour j'ai ce bout de code :

Sub ajout_code_base()
Déprotéger
If Range("E17").Value <> "" Then
' copie les données
Range("E17").Copy Sheets("BASE").Range("A2")
Range("G17").Copy Sheets("BASE").Range("B2")
Range("K17").Copy Sheets("BASE").Range("C2")
' ajoute une ligne vide
Sheets("BASE").Range("A2").EntireRow.Insert
' supprime les données
Range("E17,G17:H17,K17:L17").ClearContents
Else
MsgBox ("Erreur - Remplir les cases vides")
End If
Protéger
End Sub

qui vérifie si la cellule E17 et pleine ou vide pour sortir ou non de la macro, j'aimerais tester en plus de E17, G17 et I17

j'ai essayer en mettant un virgule entre les de cellules, mais ca marche pas.. merci de votre aide. 😎

 

[Hervé]

Re : vérifier si cellules pleines

bonjour

essayes comme ceci :

If Range("E17") & Range("g17") & Range("i17") <>"" Then

salut

 

[Flop]

Re : vérifier si cellules pleines

ca marche pas, il ne teste que E17

j'ai refais ce fichier pour etre sur :

 

[Staple1600]

Re : vérifier si cellules pleines

Bonjour

a tester

If Not Empty Range("E17,G17,H17,E17") Then

 

[bqtr]

Re : vérifier si cellules pleines

Bonjour,

Essaye comme ca :

If Range("E17") <> "" And Range("G17") <> "" And Range("I17") <> "" Then

Si une ou plusieurs de ces cellules sont vides, la copie ne se fera pas.

Bonne journée

 

[Flop]

Re : vérifier si cellules pleines

sur la solution de : Staple1600

If Not Empty Range("E17,G17,H17,E17") Then

J'ai une erreur de compilation " attendu then ou GoTo

la solution de : bqtr

If Range("E17") <> "" And Range("G17") <> "" And Range("I17") <> "" Then

marche très bien..

merci beaucoup

 

[Staple1600]

Re : vérifier si cellules pleines

mes excuses

Sub test()
If Not IsEmpty(Sheets(1).Range("A1")) Then MsgBox "Cellule non vide"
End Sub

Ca fonctionne

Pour ce qui te concerne

Sub testOK()
If Not IsEmpty(Sheets(1).Range("E17,G17,H17,E17")) Then
MsgBox "Cellules non vides"
Else
MsgBox "cellules vides"
End If
End Sub
Ca doit fonctionner non

 

[Flop]

Re : vérifier si cellules pleines

ca marche pas, regarde le fichier si tu veux :

 

[Staple1600]

Re : vérifier si cellules pleines

Ca marche chez moi

Sub ajout_code_base()
If IsEmpty(Sheets(1).Range("A1,C1,E1")) Then
' If Range("A1") & Range("C1") & Range("E1") <> "" Then
MsgBox "ok"
Else
MsgBox "Erreur - Remplir les cases vides"
End If
End Sub

j'ai retire les parenthéses

 

[Flop]

Re : vérifier si cellules pleines

Ca marche chez moi

Sub ajout_code_base()
If IsEmpty(Sheets(1).Range("A1,C1,E1")) Then
' If Range("A1") & Range("C1") & Range("E1") <> "" Then
MsgBox "ok"
Else
MsgBox "Erreur - Remplir les cases vides"
End If
End Sub

j'ai retire les parenthéses

c'est ok ca marche sans les parantheses et sans le NOT

 

[Staple1600]

Re : vérifier si cellules pleines

Cette fois ci

Sub ajout_code_base()
Dim P As Range
Dim P1 As Range
Dim P2 As Range

Set P = Sheets(1).Range("A1")
Set P1 = Sheets(1).Range("C1")
Set P2 = Sheets(1).Range("E1")

If Not IsEmpty(P) And Not IsEmpty(P1) And Not IsEmpty(P2) Then
' If Range("A1") & Range("C1") & Range("E1") <> "" Then

MsgBox "Toutes cellules sont remplies"

Else

MsgBox "Erreur - Remplir les cases vides"

End If

End Sub

 

[Hervé]

Re : vérifier si cellules pleines

bonjour

Pour info, je teste tout les réponses que je donne au forum, donc mon code fonctionne.

salut

 

[Flop]

Re : vérifier si cellules pleines

J'en doute pas, vu ton nombre de posts.. , j'ai pas du réussir à le faire fonctionner alors. Tu peux regarder le fichier que j'ai fais avec ta formule et m'expliquer ou je me suis trompé... merci d'avance.

 

[Allergique]

Re : vérifier si cellules pleines

mes excuses

Sub test()
If Not IsEmpty(Sheets(1).Range("A1")) Then MsgBox "Cellule non vide"
End Sub

Ca fonctionne

Pour ce qui te concerne

Sub testOK()
If Not IsEmpty(Sheets(1).Range("E17,G17,H17,E17")) Then
MsgBox "Cellules non vides"
Else
MsgBox "cellules vides"
End If
End Sub
Ca doit fonctionner non

Bonjour,

Est-ce possible d'utiliser cette méthode lorsqu'on utilise une variable pour désigner le numéro de ligne?
exemple: Range("E" & ligne,"G" & ligne,"H & ligne)

Chez moi ça ne marche pas, je pense à cause des guillemets qui sont refermés

merci d'avance

 

[Allergique]

Re : vérifier si cellules pleines

Ca marche chez moi

Sub ajout_code_base()
If IsEmpty(Sheets(1).Range("A1,C1,E1")) Then
' If Range("A1") & Range("C1") & Range("E1") <> "" Then
MsgBox "ok"
Else
MsgBox "Erreur - Remplir les cases vides"
End If
End Sub

j'ai retire les parenthéses

Je me trompe peut-être, j'ai l'impression que la formule ne tient compte que de la cellule A1. Que les cellules C1 ou E1 soit pleines ou vide, ça ne change rien...