Discussion :

[buigui]

Bonjour

J'ai deux colonnes, la première "A" peut contenir des valeurs numériques, la seconde "B" du texte.

Pour identifier si ces colonnes contiennent des valeurs, pour la première colonne j'ai le code ci-dessous qui fonctionne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Application.WorksheetFunction.Sum(Range("a:a")) > 0 Then
 
	msgbox("Attention, il a des valeurs dans la colonne A")

Par contre pour la seconde colonne, celle qui contient du texte, je ne trouve pas la fonction qui aille.

Quelqu'un pourrait-il m'aider svp ?

Merci par avance

[a_diard]

Bonjour, par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub toto()
If Application.WorksheetFunction.Sum(Range("a:a")) > 0 Then
    MsgBox ("Attention, il a des valeurs dans la colonne A")
End If
If Application.CountA(Range("B:B")) <> 0 Then
 MsgBox ("Attention, il a des valeurs dans la colonne B")
End If
End Sub

[Franc]

Salut,
Tu peux utiliser la fonction COUNTA qui compte le nombre de cellules non vides dans une plage. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Application.WorksheetFunction.CountA(Range("B:B")) > 0 Then
    MsgBox("Attention, il y a des valeurs dans la colonne B")
End If

Oups, je vois que a_diard à déjà donné la réponse

[buigui]

Merci à tous pour la rapidité, et la cohésion des réponses données

[buigui]

Bonjour à tous

Je me permets de réouvrir ce dossier, en fait mon besoin a un peu glissé, je le ré-exprime :

J'ai deux colonnes, la première "A" peut contenir des valeurs numériques, la seconde "B" les lettre "O" ou "N".

Je dois identifier si la première contient des valeurs, et si la deuxième contient la valeur "O" uniquement. Pour la première colonne j'ai le code ci-dessous qui fonctionne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Application.WorksheetFunction.Sum(Range("a:a")) > 0 Then
 
	Msgbox("Attention, il a des valeurs dans la colonne A")
        End if

Par contre pour la seconde colonne, celle qui contient les valeurs "O" ou "N", je ne trouve pas la fonction qui convienne (une sorte d'équivalent de "ESTNUM(TROUVE())".

Quelqu'un pourrait-il m'aider svp ?

Merci par avance

[Franc]

Salut,
Essaie ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim oCount As Long
Dim cellCount As Long
 
oCount = Application.WorksheetFunction.CountIf(Range("B:B"), "O")
cellCount = Application.WorksheetFunction.CountA(Range("B:B"))
 
If oCount = cellCount Then
    MsgBox ("La colonne B contient uniquement des valeurs 'O'")
Else
    MsgBox ("La colonne B contient des valeurs autres que 'O'")
End If

La fonction CountIf va compter le nombre de "O" dans la colonne B et CountA le nombre de cellules non vides dans la colonne B, si les 2 retournent le même nombre c'est qu'il n'y a que des "O".