Discussion :

[GTbenj]

Bonjour à tous,

voilà j'ai un petit soucis avec des checkbox alors que la formule utilisée est la même que j'ai utilisé avec d'autres checkbox ,et avec les mêmes contraintes, mais qui fonctionnent

donc je bloque un peu

je dispose de de cellules fusionnées qui ne font qu'un case.
Quand je remplis mes checkbox, cela doit mettre des croix dans le tableau correspondant, jusque là pas de souci, mais à la prochaine saisie, je veux que ça passe à la ligne

et là, problème, rien ne s'affiche aux lignes suivantes,alors que les cellules fusionnées sont considérées comme 1 cellule, donc je ne vois pas où est le pb ?

Je joins un extrait du fichier avec les parties concernées

http://www.cijoint.fr/cjlink.php?fil...cijJbHVPKp.xls

[fring]

et là, problème, rien ne s'affiche aux lignes suivantes,alors que les cellules fusionnées sont considérées comme 1 cellule, donc je ne vois pas où est le pb ?

L'erreur est là, visuellement il n'y a plus qu'une cellule, en cliquant dessus tu as bien l'adresse que d'une cellule mais cela n'est pas considéré comme une seule cellule, les autres cellules ne se sont pas envolées, elles sont toujours bien présentes. VBA et cellules fusionnées ne font pas bon ménage.

Fais ce petit test, fusionne les cellules A2 à A8 et lance la procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim plage As Range, cel As Range, compteur As Integer
 
Set plage = Range("A1:A10")
 
For Each cel In plage
    compteur = compteur + 1
Next
 
MsgBox "ma plage A1:A10 contient " & compteur & " cellules"
End Sub

[GTbenj]

Oui effectivement,
il ne considère pas les cellules fusionnées,
mais pourtant, ce qui ne va pas actuellement, c'est que j'ai déjà utilisé la formule avec des cellules fusionnées, et ça marchait, donc je ne comprends pas pourquoi ici ça ne marche pas

mais avec ce que tu as dis, j'ai changé ça

Code :

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

                    DerL4 = Feuil4.Range("R65535").End(xlUp).Row + 1

en ça:

Code :

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

                    DerL4 = Feuil4.Range("R65535").End(xlUp).Row + 18

et effectivement ça marche, j'aurais du y penser avant, mais commen ça marchait avec d'autres checkbox et cellules fusionnées, j'ai tout de suite cru qu'il y avait un problème d'un autre genre

merci beaucoup