Sub Transforme()
Application.ScreenUpdating = False
Dim Derlig&, DernCol%
DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Derlig = Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To DernCol
For i = 2 To Derlig
If Cells(i, j) = 1 Then Cells(i, j) = Cells(1, j)
Next i
Next j
End Sub
C'est bien cela. Comment puis-je me baser sur votre excel en changeant et ajoutant des personnes et autresBonjour à tous,
Un essai avec une MFC
JHA
Je viens d'essayer votre document ! C'est Top ! Désolée mais je suis novice dans excel donc certaines abréviations je ne connais pas .
Comment puis-je me baser sur votre excel en changeant et ajoutant des personnes et autres
Je viens d'essayer votre document ! C'est Top ! Désolée mais je suis novice dans excel donc certaines abréviations je ne connais pas .
Ok super , merci beaucoup de votre aide.Re
Et tu rajoutes tout ce que tu veux cela fonctionne et aussi bien les noms de fruit que les personnes....
*Merci de ton retour
@Phil69970
Non tu feuilletonne c'est pire ...Je complique la chose peut être !