Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonjour, regarde le fichier joint :
par macro, avec l'évènement
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$4" Then
Range("A5:A" & Range("A65000").End(xlUp).Row).ClearContents
col = Range("F10:I10").Find(What:=Target).Column
For Each cel In Range(Cells(11, col), Cells(16, col))
If cel.Value <> "" Then Range("A65000").End(xlUp).Offset(1, 0).Value = Cells(cel.Row, 5)
Next cel
End If
End Sub
Je reviens sur mon tableau, vos réponses étaient parfaites encore merci, mais en continuant mon travail sur se fichier je suis obligé de transférer les clients en colonne et les articles en ligne et je suis vraiment trop débutant pour modifier vos supers solutions…
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD