Appel à experience rare (je suppose) !!

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Appel à experience rare (je suppose) !!

cocal

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 ?)

Publicité

mareek

Et de 3 \o/

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

cocal

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 ...

galopin01

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+

cocal

Impeccable !!!

C'est exactement ce que je cherchais !

Merci beaucoup

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Appel à experience rare (je suppose) !!

Sujets relatifs
Appel d'un script SQL dans un script SQL	Xhtml valide W3C vs User Experience => votre avis
Appel à "Synchronize" qui bloque sous Delphi7 et pas sous Delphi5 ???!	Un script qui s'execute plus d'une fois a chaque appel -> solution...
Plantage Excel lors d'appel fonctions perso C++-COM	Appel d'un JS en Perl
appel d'un programme JAVA depuis C	Appel page PHP générant du Flash
[javascript] appel de fonction	[HTML] appel der procedure de LogOff
Plus de sujets relatifs à : Appel à experience rare (je suppose) !!

Page générée en 0.040 secondes