supprimer au fur et à mesure

fanfan38 à dit:

Bonjour
Il faut d'abord enlever: If lig > 34 Then Exit Sub (en début de macro)
ensuite le but est de dire à l'ordi ou ce trouve la colonne correspondante.
Donc pour l'instant on devait traiter que les colonnes
Maintenant on va traiter aussi les lignes
Case Is = 4
Select Case lig
Case Is < 15 'matin 1° tableau
moncol = 22
Case lig > 14 And lig < 26 'am
moncol = 23
Case lig > 25 And lig < 35 'nuit
moncol = 24
Case lig > 37 And lig < 68 'matin tableau 2
moncol = 43
ect...
End Select
Case Is = 6
Comme tu le vois dans une commande case on remet une autre commande select case
Le but étant de dire à l'ordi les personnes qui sont de quart ce jour là sont dans cette colonne là...
Il faut aussi enlever
If lig > 25 Then moncol = moncol + 2
If lig > 14 And lig < 26 Then moncol = moncol + 1
Puisque maintenant on doit préciser pour chaque ligne...

A+ François

Cliquez pour agrandir...

fanfan38 à dit:

Bonjour
J'avais pris quelque jours de vacance...
Donc
Si j'ai bien suivi y a erreur...
Select case col
case is=4
select case lig
case 15 to 25
action matin
case 26 to 36
action am
case 36 to 46
action nuit
end select 'ligne
case is =10 'colonne
select case lig
case 1 to 5
end select 'ligne
end select 'colonne

J'ai vu trop de end select...
Tu as un select case pour la colonne
donc case is= 1
entre 2 case (colonne) tu auras un select case ligne avec les cases qui vont bien et le end select correspondant
Pour t'y retrouver fait bien les espaces
select case col
2 espaces cas is =4
4 espaces select case lig
6 espaces case is =...

A+ François

Cliquez pour agrandir...