Appel à experience rare (je suppose) !!

Marsh Posté le 07-09-2005 à 15:28:18

bonjour,

voilà mon problème :

je dois faire vérifier par mes chers collaborateurs (120 en l'occurence) une base de donnée d'environ 1200 lignes sous excel

Je recherche donc un moyen de mettre quelqechose comme une case à cocher au début de chaque ligne qui confirmerai que la vérification a été faite.

Je n'envisage vraiment mais alors vraiment pas de définir 1200 case à cocher :pfff: .

J'ai pensé également à mettre des zones de validation du style "vérification OK" "vérification pas OK" mais je préfererai avoir quelque chose (si ca existe) "cellule à cocher" : avec un seul clik dans la cellule faire apparaitre "verif OK ou quelque chose comme çà.
Est ce que quelqu'un aurait ce type d'experience ?

merci d'avance (je crois que c galère comme problème non ?)

Reply

Marsh Posté le 07-09-2005 à 15:28:18

Reply

Marsh Posté le 07-09-2005 à 15:51:47

Et en attribuant 10 lignes à chaque personne, ça marche pas ?

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 07-09-2005 à 16:03:47

en fait j'ai trié la base par personne mais comment faire pour s'assurer de la vérification en rendant le "cochage" le plus simple possible (idéalement un click seulement) sans devoir définir 1200 cases à cocher ???

j'aimerai bien définir une cellule (mais comment ?) et copier ses caractéristqiues sur toute la colonne

j'ai des personnes qui doivent vérifier 80 lignes et d'autres 1 seule ...

Reply

Marsh Posté le 08-09-2005 à 07:18:47

bonjour,
il suffit de coller cette macro dans le module de la feuille concernée.
(clic droit sur l'onglet de la feuille concernée + Visualiser le code)

Code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then .LineStyle = xlContinuous Else .LineStyle = xlNone
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then .LineStyle = xlContinuous Else .LineStyle = xlNone
End With
End If
End Sub

Nota : la macro n'agit que sur la colonne 1
Pour modifier la colonne active modifier
Target.Column = (NombreAuChoix)
Cette macro réagit a l'activation d'une cellule (clic ou déplacement)
En cas d'erreur il suffit de se déplacer colonne 2 et de revenir colonne 1
A la fin pour supprimer toutes les croix sélectionner la colonne puis
Format / Cellules / Bordures ... Aucune
Ne pas oublier de suprimer la macro ensuite !
A+

Reply

Marsh Posté le 08-09-2005 à 09:28:16

Impeccable !!!

C'est exactement ce que je cherchais !

Merci beaucoup

Reply

Appel à experience rare (je suppose) !!

Sujets relatifs:

Leave a Replay