Re : macro pour recap donnees ordonnees - adresse cellule
j'ai pas tout tout compris
je vais donc demander des précisions.
Concernant les plaques,
les résultats sont visualisés ou ? ton amie tappes la valeur 1 dans chaque plaque
dans feuilles nommées "plaque 1", "plaque 2" , ... ?
si oui tu peux faire une seul feuille représentant la plaque observée
qui sera par la macro pour faire les récapitulatifs.
puis ton amie valide la saisie ce qui va stocker les résultats et effacer la plaque.
pour faciliter la "saisie" de la plaque modèle tu peux ajouter ce code dans la feuille "plaque"
(pas dans un module mais dans le VBA en double cliquent sur le nom de la feuille), le code fait qu'il n'y a plus qu'à cliquer pour colorier et écrire "1" dans les cases (puits).
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'''''contrôle de sélection simple
If Target.Rows.Count > 1 Then
Exit Sub
End If
If Target.Columns.Count > 1 Then
Exit Sub
End If
'''''''''''''''''''''
If Not Application.Intersect(Target, Range("a1:L8")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 3 Then
.Interior.ColorIndex = xlNone
.FormulaR1C1 = ""
Else
.Interior.ColorIndex = 3
.FormulaR1C1 = "1"
End If
Range("A3").Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
End With
End If
End Sub
j'attends plus d'infos pour continuer
, et surtout il est tard
et j'ai pas posté mon problème alors que ca fait 2 h que je suis sur le site