Recherche de la valeur seconde case remplie dans une colonne
Mes prérégrinations m'amènent maintenant à devoir lire et enregistrer la seconde case remplie d'une colonne à partir de la cellule sélectionnée.
Typiquement, je souhaiterais écrire une macro me permettant de stocker sous le nom hdvd la valeur de B23 quand la cellule sélectionnée est B15 ou celle de I19 si la cellule sélectionnée est I15.
Et je sèche complètement...
En sollicitant votre bienveillance.....
Antoine
PS: J'utilise Excel 2003
Bonjour
Ben je sèche aussi car "hdvd", c'est quoi et cela se trouve où dans le fichier
A te relire
hdvd n'existe pas encore.
C'est pour extraire les HeuresDeVolDoublecommande et ensuite les additionner pour par exemple faire un bilan mensuel
re
Une proposition vite faite est de placer ce code dans la feuille de tes données
- Clique droite sur l'onglet concerné
- choisis "visualiser le code"
- Colle le code ci-dessous dans la fenetre
- Reste à cliquer en B23 ou I23 pour voir le résultat en A1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro Dan
Dim i As Byte, j As Byte, col As Byte
If Not Intersect(Target, Range("B15", "I15")) Is Nothing Then
j = 0
col = Target.Column
For i = 16 To 37
If Cells(i, col) > 0 Then j = j + 1
If j = 2 Then Range("A1") = Cells(i, col)
Next
End If
End SubSi ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil
merci, je teste ça dans la matinée !