Aide Boucle VBA SVP

Question

Bonjour, 

J'aurai besoin d'aide pour faire une boucle en VBA svp.

Je vous explique mon code qui est lourd aujourd'hui :

    If Not IsEmpty(Range("A2")) Then
    MsgBox ("ATTENTION")
    ElseIf Not IsEmpty(Range("B2")) Then
    MsgBox ("ATTENTION")
    ElseIf Not IsEmpty(Range("C2")) Then
    MsgBox ("ATTENTION")
    ElseIf Not (IsEmpty(Range("D2"))) Then
    MsgBox ("ATTENTION")

    If Not IsEmpty(Range("A3")) Then
    MsgBox ("ATTENTION")
    ElseIf Not IsEmpty(Range("B3")) Then
    MsgBox ("ATTENTION")
    ElseIf Not IsEmpty(Range("C3")) Then
    MsgBox ("ATTENTION")
    ElseIf Not (IsEmpty(Range("D3"))) Then
    MsgBox ("ATTENTION")

Et ainsi de suite ....

J'aimerai faire une boucle tout d'abord et ensuite que le code se fasse jusqu'à ce que j'arrive à une ligne complètement vide.

Comment pourrais-je faire ?

Merci d'avance pour votre aide.

Patrice33740 · Answer

Bonjour,

Par exemple :
Option Explicit
Sub Test()
  If Application.WorksheetFunction.CountA(ActiveSheet.Range("A2:D3")) > 0 Then MsgBox ("ATTENTION")
End Sub

Patrice33740 · Answer

Bien sûr que ça correspond !
Pas besoin de boucle !!!!
Il faut une ligne de code par message ... et dans cette ligne tester la colonne.
(i.e. au lieu de A2:D3, tester A2:A3)  
et pas de ElseIf inutile.

EDIT : la prochaine fois réfléchis à un exemple représentatif du besoin avant de poser une mauvaise question...

sctr · Answer

Merci beaucoup, désolé de pas avoir été clair dès le début.

f894009 · Answer

Bonjour a vous deux,
Une facon de faire. Par contre 500 lignes a faire des click souris si colonne A ok jusqu'a 500 et  les autres colonnes OK

Y a quand meme un probleme si colonne A OK jusqu'a la fin-1. Manque une info

Suite: code corrige

Sub test()
    LD = 2
    With Worksheets("feuil1")
        PCV = .Columns("A:D").Find("*", , , , xlByRows, xlPrevious).Row + 1
        Do
            If .Cells(LD, 2) = "Jean" Then
                MsgBox ("ATTENTION,prénom incorrect")
            ElseIf .Cells(LD, 3) = "DUPONT" Then
                MsgBox ("OK")
            ElseIf .Cells(LD, 4) <> 8 Then
                MsgBox ("Num OK")
            Else
            End If
            LD = LD + 1
        Loop Until .Cells(LD, 1) = ""
        If LD < PCV Then
            MsgBox ("ATTENTION, " & Cells(LD, 1).Address & " case vide")
        End If
    End With
End Sub

sctr · Answer

Super, merci.

C'est exactement ce que je voulais, ça fonctionne niquel.

Merci beaucoup pour l'aide !

Aide Boucle VBA SVP

5 réponses

Discussions similaires

Newsletters