Capitaine Flame
XLDnaute Nouveau
Bonjour,
Je fais appel à votre maîtrise de Excel et les macro.
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.
Je fais appel à votre maîtrise de Excel et les macro.
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.