Discussion :

[pelourinho]

Bonjour,

je réalise un fichier Excel pour répertorier des partenaires et leur spécificités.
Travaillant dans le transport, une des spécifités principales est le ou les départements desservis.
Pour entrer un nouveau partenaire dans le fichier, j´ai utilisé vba.
Un userform s´ouvre et on remplit les informations nécessaires:
Nom
tel fax
Blabla

Dans ce même user form, on renseigne des spécificités (mentionnées ci-dessus).
A l´aide de Checkboxes, on coche les départements desservis.
Si Checkbox n´est pas cochée, cela vient bien sûr dire que le département n´est pas desservis. Cela va de soit.

Cependant, certains partenaires desservent tous les départements.
J´ai donc créé une Checkbox pour le mentionner et ainsi gagner du temps pour la saisie de ces nouveaux partenaires.

Quand je coche, cette checkbox, je veux que "OUI" s´inscrive dans la colonne All france ainsi que dans la colonne de chaque département.

Ma feuille Excel dans laquelle les informations viennent se mettre ressemble à ca:

NOM ! Tel.......! All france! dep 01 ! dep 02 ! 03 !...!dep 94!dep 95!dep 98

Mon code est le suivant: La checkbox s´appelle Cballfr
Colonne 11 pour All fr, col 12 pour dep 01, col 13 pour dep 02.....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if Cballfr = true then
 
    Sheets ("file partner").Cells(ligne, 11).value = "OUI"
    Sheets ("file partner").Cells(ligne, 12).value = "OUI"
    Sheets ("file partner").Cells(ligne, 13).value = "OUI"
    Sheets ("file partner").Cells(ligne, 14).value = "OUI"
    Sheets ("file partner").Cells(ligne, 15).value = "OUI"
    Sheets ("file partner").Cells(ligne, 16).value = "OUI"
    .
    .
    Jusqu´à la dernière colonne de département.

Le code ne fonctionne pas il mets "OUI" pour la colonne 11 Mais pas pour les suivantes

Avez vous la réponse?

Merci d´avance.
En espérant avoir été assez clair dans les explications.

Cdt

[jfontaine]

Bonjour,

En simplifiant un peu, pas de problème

Code :

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

1
2
3
4
5
6
dim i as integer
for i=11 to (98+11)
 
    Sheets ("file partner").Cells(ligne, i).value = "OUI"
 
next i

[pelourinho]

Salut jfontaine,

je viens de voir ta réponse. Merci.
Je viens également dóbtenir ce que je voulais.
Ta proposition a l´air plus rapide à écrire que la mienne.je vais opter pour la tienne.
Moi je lui ai dit que

If Cballfr = true then

Cbdel01 = true
.
.
.
pour chaque département.

Bon jái réussi ce qu je voulais faire pour remplir ma base de donnée.

Maintenant ca se corse pour moi.
Je veux consulter ma base en fonction de critères:

Ex: je veux que sáffiche tous les partenaires qui peuvent desservir le département 44.
Mais également, basé dans le 91.

je veux croiser ces recherches.
je pourrai le faire avec un filtre automatique,
mais je veux l´outil intuitif et rapide d´utilisation et je ne sais pas comment faire.


Merci encore d´avance