Hulk XLDnaute Barbatruc 13 Novembre 2009 #1 Bonsoir à tous, Je souhaite faire un truc pas très explicable comme ça, le mieux est que vous jetiez un oeil au fichier joint Là je sèche complet. Dans tous les cas merci pour votre aide. Cdt, Hulk. Pièces jointes Test.xls 25 KB · Affichages: 48 Test.xls 25 KB · Affichages: 45 Test.xls 25 KB · Affichages: 54
Bonsoir à tous, Je souhaite faire un truc pas très explicable comme ça, le mieux est que vous jetiez un oeil au fichier joint Là je sèche complet. Dans tous les cas merci pour votre aide. Cdt, Hulk.
ROGER2327 XLDnaute Barbatruc 14 Novembre 2009 #2 Re : Utiliser une boucle... ? Bonsoir Hulk Code: [COLOR="DarkSlateGray"][B]=(COLONNE()<$B5+4)*1[/B][/COLOR] en D5, à tirer à droite, devrait faire l'affaire.ROGER2327 #2105 Vote positif 0 Vote négatif
Re : Utiliser une boucle... ? Bonsoir Hulk Code: [COLOR="DarkSlateGray"][B]=(COLONNE()<$B5+4)*1[/B][/COLOR] en D5, à tirer à droite, devrait faire l'affaire.ROGER2327 #2105
ROGER2327 XLDnaute Barbatruc 14 Novembre 2009 #3 Re : Utiliser une boucle... ? Suite......ou encore : Code: [COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click() Application.ScreenUpdating = False [D5:AI5].Value = 0 [D5].Resize(1, [B5].Value).Value = 1 Application.ScreenUpdating = True End Sub[/B][/COLOR] ROGER2327 #2106 Vote positif 0 Vote négatif
Re : Utiliser une boucle... ? Suite......ou encore : Code: [COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click() Application.ScreenUpdating = False [D5:AI5].Value = 0 [D5].Resize(1, [B5].Value).Value = 1 Application.ScreenUpdating = True End Sub[/B][/COLOR] ROGER2327 #2106
Hulk XLDnaute Barbatruc 14 Novembre 2009 #4 Re : Utiliser une boucle... ? Hello, Merci Roger t'es un As ! Vais tâcher de comprendre, très bonne soirée ! Hulk. Vote positif 0 Vote négatif
Re : Utiliser une boucle... ? Hello, Merci Roger t'es un As ! Vais tâcher de comprendre, très bonne soirée ! Hulk.