Re : Planning sportif avec remplissage automatique de coordonnées
Bonjour,
Je viens de reprendre la suite de mon fichier et je constate que la macro de Mikachu est très proche de ce que je recherche.
Voici la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim derligne As Integer
If Target.Address <> "$b$2" Then Exit Sub
Range("b40:h51").ClearContents
For Each rw In Sheets("Licenciés").Rows
If Sheets("Licenciés").Cells(rw.Row, 1).Value = "" Then Exit For
If Sheets("Licenciés").Cells(rw.Row, 9).Value = Target.Value Then
derligne = Range("b65536").End(xlUp).Row + 1
Cells(derligne, 2).Value = Sheets("Licenciés").Cells(rw.Row, 1).Value
Cells(derligne, 3).Value = Sheets("Licenciés").Cells(rw.Row, 2).Value & " " & Sheets("Licenciés").Cells(rw.Row, 3).Value
Cells(derligne, 5).Value = Sheets("Licenciés").Cells(rw.Row, 4).Value
Cells(derligne, 6).Value = Sheets("Licenciés").Cells(rw.Row, 5).Value & " " & Sheets("Licenciés").Cells(rw.Row, 6).Value
Cells(derligne, 8).Value = Sheets("Licenciés").Cells(rw.Row, 7).Value
End If
Next rw
End Sub
Dans cette macro, on fait appelle à la valeur de la case B2 pour la suite du calcul. Or, dans cette cellule, j'ai une formule qui prend le résultat d'une cellule sur un autre onglet. J'ai donc 2 options : soit j'utilise le résultat texte de cette cellule, soit je vais chercher le résultat de la cellule initiale (cellule de copie pour B2)qui se trouve en onglet Départ B18.
Avez-vous une solution ?
Merci pour vos réponses.