Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir,
Un truc du genre..à tester ou adapter à ton userform
Dim i as long , j as long, montab() montab = Array(".BB", ".B", ".P", ".S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i) = me.controls("RELEVE" & montab(i) & Int((j + 3.9) / 4)) Next i Next j End With
'LSteph
"magic-dd" a écrit dans le message de news:
bonsoir
voici le code que je viens de creer pour 4 lignes de 4 textbox possible
je trouve que pour faire les 12 lignes ca va faire long
Un truc du genre..à tester ou adapter à ton userform
Dim i as long , j as long, montab()
montab = Array(".BB", ".B", ".P", ".S")
With ActiveCell
For j = 1 To 13 Step 4
For i = 0 To 3
.Offset(0, j + i) = me.controls("RELEVE" & montab(i) & Int((j + 3.9) / 4))
Next i
Next j
End With
'LSteph
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:79717771-7a66-4ea5-ac51-ef100c55ed6b@s11g2000prs.googlegroups.com...
bonsoir
voici le code que je viens de creer pour 4 lignes de 4 textbox
possible
je trouve que pour faire les 12 lignes ca va faire long
Un truc du genre..à tester ou adapter à ton userform
Dim i as long , j as long, montab() montab = Array(".BB", ".B", ".P", ".S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i) = me.controls("RELEVE" & montab(i) & Int((j + 3.9) / 4)) Next i Next j End With
'LSteph
"magic-dd" a écrit dans le message de news:
bonsoir
voici le code que je viens de creer pour 4 lignes de 4 textbox possible
je trouve que pour faire les 12 lignes ca va faire long
de plus pourquoi dans mon ancienne methode avec toutes mes lignes, mes chiffres étaient mis au format texte et non numerique?
merci
On 14 nov, 20:57, "LSteph" wrote:
Bonsoir,
Un truc du genre.. tester ou adapter ton userform
Dim i as long , j as long, montab() montab = Array(".BB", ".B", ".P", ".S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i) = me.controls("RELEVE" & montab(i) & Int((j + 3.9) / 4)) Next i Next j End With
'LSteph
"magic-dd" a crit dans le message denews:79717771-7
> bonsoir
> voici le code que je viens de creer pour 4 lignes de 4 textbox > possible
> je trouve que pour faire les 12 lignes ca va faire long
de plus pourquoi dans mon ancienne methode avec toutes mes lignes, mes
chiffres étaient mis au format texte et non numerique?
merci
On 14 nov, 20:57, "LSteph" <lecocost...@frite.fr> wrote:
Bonsoir,
Un truc du genre.. tester ou adapter ton userform
Dim i as long , j as long, montab()
montab = Array(".BB", ".B", ".P", ".S")
With ActiveCell
For j = 1 To 13 Step 4
For i = 0 To 3
.Offset(0, j + i) = me.controls("RELEVE" & montab(i) & Int((j + 3.9) / 4))
Next i
Next j
End With
'LSteph
"magic-dd" <ciolan...@gmail.com> a crit dans le message denews:79717771-7 a66-4ea5-ac51-ef100c55ed6b@s11g2000prs.googlegroups.com...
> bonsoir
> voici le code que je viens de creer pour 4 lignes de 4 textbox
> possible
> je trouve que pour faire les 12 lignes ca va faire long
de plus pourquoi dans mon ancienne methode avec toutes mes lignes, mes chiffres étaient mis au format texte et non numerique?
merci
On 14 nov, 20:57, "LSteph" wrote:
Bonsoir,
Un truc du genre.. tester ou adapter ton userform
Dim i as long , j as long, montab() montab = Array(".BB", ".B", ".P", ".S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i) = me.controls("RELEVE" & montab(i) & Int((j + 3.9) / 4)) Next i Next j End With
'LSteph
"magic-dd" a crit dans le message denews:79717771-7
> bonsoir
> voici le code que je viens de creer pour 4 lignes de 4 textbox > possible
> je trouve que pour faire les 12 lignes ca va faire long
voici mon fichier ça sera peut etre plus aisé pour comprendre
http://cjoint.com/?0lowWLYfZUS
LSteph
en fait plus besoin de Releve ni du point puisque releve c'est le nom de ton Userform et voici pour des chiffres, toutefois tu devrais ne rendre actif le bouton que si les deux combo audessus sont renseignées
Dim i As Long, j As Long, montab() montab = Array("BB", "B", "P", "S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i).Value = Val(Me.Controls((montab(i) & Int((j + 3.9) / 4)))) Next i Next j End With
"magic-dd" a écrit dans le message de news: voici mon fichier ça sera peut etre plus aisé pour comprendre
http://cjoint.com/?0lowWLYfZUS
en fait plus besoin de Releve ni du point puisque releve c'est le nom de ton
Userform
et voici pour des chiffres, toutefois tu devrais ne rendre actif le bouton
que si les deux combo audessus sont renseignées
Dim i As Long, j As Long, montab()
montab = Array("BB", "B", "P", "S")
With ActiveCell
For j = 1 To 13 Step 4
For i = 0 To 3
.Offset(0, j + i).Value = Val(Me.Controls((montab(i) & Int((j + 3.9) / 4))))
Next i
Next j
End With
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:72f85f12-62be-4f4b-b021-e4c0e21b6ece@r6g2000vbf.googlegroups.com...
voici mon fichier ça sera peut etre plus aisé pour comprendre
en fait plus besoin de Releve ni du point puisque releve c'est le nom de ton Userform et voici pour des chiffres, toutefois tu devrais ne rendre actif le bouton que si les deux combo audessus sont renseignées
Dim i As Long, j As Long, montab() montab = Array("BB", "B", "P", "S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i).Value = Val(Me.Controls((montab(i) & Int((j + 3.9) / 4)))) Next i Next j End With
"magic-dd" a écrit dans le message de news: voici mon fichier ça sera peut etre plus aisé pour comprendre
http://cjoint.com/?0lowWLYfZUS
magic-dd
bonjour LSteph
tout fonctionne parfaitement
bravo et encore un grand merci
@ bientot
On 15 nov, 18:15, "LSteph" wrote:
en fait plus besoin de Releve ni du point puisque releve c'est le nom de ton Userform et voici pour des chiffres, toutefois tu devrais ne rendre actif le bouto n que si les deux combo audessus sont renseignées
Dim i As Long, j As Long, montab() montab = Array("BB", "B", "P", "S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i).Value = Val(Me.Controls((montab(i) & Int((j + 3.9) / 4)))) Next i Next j End With
"magic-dd" a écrit dans le message denews:72f85f1 voici mon fichier ça sera peut etre plus aisé pour comprendre
http://cjoint.com/?0lowWLYfZUS
bonjour LSteph
tout fonctionne parfaitement
bravo et encore un grand merci
@ bientot
On 15 nov, 18:15, "LSteph" <lecocost...@frite.fr> wrote:
en fait plus besoin de Releve ni du point puisque releve c'est le nom de ton
Userform
et voici pour des chiffres, toutefois tu devrais ne rendre actif le bouto n
que si les deux combo audessus sont renseignées
Dim i As Long, j As Long, montab()
montab = Array("BB", "B", "P", "S")
With ActiveCell
For j = 1 To 13 Step 4
For i = 0 To 3
.Offset(0, j + i).Value = Val(Me.Controls((montab(i) & Int((j + 3.9) / 4))))
Next i
Next j
End With
"magic-dd" <ciolan...@gmail.com> a écrit dans le message denews:72f85f1 2-62be-4f4b-b021-e4c0e21b6ece@r6g2000vbf.googlegroups.com...
voici mon fichier ça sera peut etre plus aisé pour comprendre
en fait plus besoin de Releve ni du point puisque releve c'est le nom de ton Userform et voici pour des chiffres, toutefois tu devrais ne rendre actif le bouto n que si les deux combo audessus sont renseignées
Dim i As Long, j As Long, montab() montab = Array("BB", "B", "P", "S") With ActiveCell For j = 1 To 13 Step 4 For i = 0 To 3 .Offset(0, j + i).Value = Val(Me.Controls((montab(i) & Int((j + 3.9) / 4)))) Next i Next j End With
"magic-dd" a écrit dans le message denews:72f85f1 voici mon fichier ça sera peut etre plus aisé pour comprendre