Discussion :

[mouncefdi]

Salut tout le monde,

J’ai un tableau, je souhaite scruter chaque colonne correspondant à une région (Lorraine, Alsace…), dans le cas ou il n y a aucune valeur au niveau de la colonne afficher un message d’erreur et recopier le nom de la région dans un onglet ERREUR en écrivant devant : problème au niveau de la structure.

Mon tableau est en réalité très grand, je vous ai fournit ci-joint un petit exemple…(mon tableau est aussi susceptible de changer car il est généré par une macro)

[casefayere]

Salut moun

tu adapter ce code entre autres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim c As Integer, r As Integer, v As Integer
 
For c = 4 To 7
v = 0
For r = 3 To 34
 
If Sheets("sheet1").Cells(r, c).Value <> "" Then
v = v + 1
End If
Next r
If v = 0 Then MsgBox "colonne vide"
If v > 0 Then MsgBox "ok"
Next c
End Sub

il suffit de remplacer les msgbox avec ton instruction

[mouncefdi]

salut,
merci pour ta réponse casefayere
est ce que ce code prend en compte aussi le fait si il y a une cellule de la colonne où il y a un commentaire alors ne pas afficher le msg d 'erreur pour la colonne?

[casefayere]

Fais l'essai, normalement oui

[mouncefdi]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
Dim c As Integer, r As Integer, v As Integer
 Dim DerniereColonne As Integer
 Dim DerniereLigne As Integer
 Dim my As Worksheet
 Set my = Sheets("sheet1")
 DerniereColonne = my.Range("IV1").End(xlToLeft).Column
 DerniereLigne = my.Range("D65536").End(xlUp).Row
For c = 5 To DerniereColonne
v = 0
For r = 3 To DerniereLigne
 
If my.cells(r, c).Value <> "" Then
v = v + 1
End If
Next r
'Est ce qu'on peu dans ce cas la copier coller le nom de la région dans une sheet "ERREUR" avec le contenu du msg box écrit devant?
If v = 0 Then MsgBox "colonne vide, level mal renseigné"
 
'je ne traite pas le cas où la colonne est non vide
'If v > 0 Then MsgBox "ok"
Next c
 
End Sub

et pour la partie copier coller le contenu de la cellule se trouvant au niveau de la ligne 2 qui correspond à la colonne vide, que faire ?
une fois que l'on appuyer sur Ok est ce que le code continu normalement ?

[casefayere]

un truc comme ça :
Sub test()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim c As Integer, r As Integer, v As Integer, er As String
 
For c = 4 To 7
v = 0
For r = 3 To 34
 
If Sheets("sheet1").Cells(r, c).Value <> "" Then
v = v + 1
End If
Next r
If v = 0 Then MsgBox "colonne vide"
er = Sheets("sheet1").Cells(c, 2).Value
Sheets("erreur").Range("a2") = er & " : Problème au niveau de la structure "
If v > 0 Then MsgBox "ok"
Next c
End Sub

[mouncefdi]

Salut merci pour votre réponse
Il y a un bug à ce niveau la?

Code :

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

Sheets("erreur").Range("a2") = er & " : Problème au niveau de la structure "

et pour la partie : dans le cas ou il n y a aucune valeur au niveau de la colonne recopier le nom de la région dans une feuille nommée ERREUR en écrivant devant : problème au niveau de la structure??