VB vérification de celulle vide(KO) Résolu

Question

Bonjour à tous,
Je viens vers vous parce que je suis confronté à un problème/bug/truc/machin/chose que je ne comprend pas.
Voici mon code vb qui me sert à la cope de celulle sur une feuille:
Sub CreerTableauFinal()
'
' CreerTableauFinal Macro
'
Dim c As Integer
Dim D As Integer
c = 1

Cells.Select
With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
End With
    With ThisWorkbook.Sheets("Feuil1")
        For D = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                If IsEmpty(Range("B" & D).Value) <> Range("B" & D).Value = "" Then
                Worksheets("Feuil1").Range("C" & D).Copy Worksheets("Feuil2").Range("A" & c)
                c = c + 1
                Else
                Worksheets("Feuil1").Range("C" & D).Copy Worksheets("Feuil2").Range("A" & c)
                c = c + 1
                Worksheets("Feuil1").Range("B" & D).Copy Worksheets("Feuil2").Range("A" & c)
                c = c + 1
                End If
        Next D
End With
End Sub


La vérification de :  IsEmpty(Range("B" & D).Value) marche quand bon lui semble ce qui dans l'informatique s'appelle un random ^^

Est ce quelqu'un aurait rencontrer le même problème sur ce type de vérification?
Si oui pouvez-vous m'expliquez la solution?

Merci d'avoir pris le temps de lire mon post.
Bonne journée.

eljojo_e · Answer

Bonjour,

Essaye isnull() à la place de isempty()

Cordialement,

G_33 · Answer

bonjour

voici cette ligne de ton code

 For D = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                If IsEmpty(Range("B" & D).Value) <> Range("B" & D).Value = "" Then

essaie avec

 For D = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                If  Range("B" & D).Value = "" Then
Cordialement

Utilisateur anonyme · Answer

Bonjour

Qu'essayes-tu de tester là ?
If IsEmpty(Range("B" & D).Value) <> Range("B" & D).Value = ""
Tel que tu as écrit ton test, tu vérifies sui une cellule est empty, tu compares le résultat de ce test (donc true ou false, -1 ou 0) au contenu de la cellule, donc tu obtiens à nouveau un booléen. Finalement, tu compares ce booléen à une chaîne vide
Je ne comprends vraiment pas

vbnetstudent · Answer

Bonjour,
Merci d'avoir répondu si rapidement mais isnull() et isempty() sont deux comportements différent en programmation.
Quand une cellule est vide, elle n'est pas nul.

J'aimerai savoir pourquoi la fonction isempty() marche pas de la même manière à chaque fois..
En faite on dirait que c'est le range.value qui bug aussi...il me dit que la cellule est vide aussi de temps en temps...C'est vraiment incompréhensible...*

Cordialement.

vbnetstudent · Answer

oups ça répond un peu trop vite... G_33 si tu remarque ton teste je le regarde aussi puisque j'ai mis un OU(<>) le père ///// Qu'essayes-tu de tester là ? If IsEmpty(Range("B" & D).Value) <> Range("B" & D).Value = "" Tel que tu as écrit ton test, tu vérifies sui une cellule est empty, tu compares le résultat de ce test (donc true ou false, -1 ou 0) au contenu de la cellule, donc tu obtiens à nouveau un booléen. Finalement, tu compares ce booléen à une chaîne vide Je ne comprends vraiment pas //// Range("B" & D).Value me sort une valeur et cette valeur je regarde si elle est vide avec isempty.Non?

G_33 · Answer

Ta remarque G_33 si tu remarque ton teste je le regarde aussi puisque j'ai mis un OU(<>) en VBA (OU) c'est OR (<>) ça veut dire different de. Donc dans ton code tu teste si la cellule b est vide et different de vide

ccm81 · Answer

bonjour à tous peut être ici où les Range() ne sont pas liés à une feuille If IsEmpty(Range("B" & D).Value) <> souligne>Range("B" & D).Value = "" Then à tester If IsEmpty(.Range("B" & D).Value) <> .Range("B" & D).Value = "" Then bonne suite

ccm81 · Answer

mais non,  
je pense qu'il manque le point ". " devant range (reference à ThisWorkbook.Sheets("Feuil1") )

VB vérification de celulle vide(KO)

8 réponses

Discussions similaires

Newsletters