raccourcire se code

G

gege21

XLDnaute Occasionnel
comment raccourcir ce code

Code: 
If UserForm2.N1.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N1.Value 'Ac = N1
If UserForm2.N2.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N2.Value 'Ad = N2
If UserForm2.N3.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N3.Value 'Ae = N3
If UserForm2.N4.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N4.Value 'Af = N4
If UserForm2.N5.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N5.Value 'Ag = N5
If UserForm2.N6.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N6.Value 'Ah = N6
If UserForm2.N7.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N7.Value 'Ai = N7
If UserForm2.N8.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N8.Value 'Aj = N8
If UserForm2.N9.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N9.Value 'Ak = N9
If UserForm2.N10.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N10.Value 'Al = N10
If UserForm2.N11.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N11.Value 'Am = N11
If UserForm2.N12.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N12.Value 'An = N12
If UserForm2.N13.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N13.Value 'Ao = N13
If UserForm2.N14.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N14.Value 'Ap = N14
If UserForm2.N15.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N15.Value 'Aq = N15
If UserForm2.N16.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N16.Value 'Ar = N16
If UserForm2.N17.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N17.Value 'At = N17
If UserForm2.N18.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N18.Value 'Au = N18
If UserForm2.N19.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N19.Value 'Av = N19
If UserForm2.N20.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N20.Value 'Aw = N20
If UserForm2.N21.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N21.Value 'Ax = N21
If UserForm2.N22.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N22.Value 'Ay = N22
If UserForm2.N23.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N23.Value 'Az = N23
If UserForm2.N24.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N24.Value 'Ba = N24
If UserForm2.N25.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N25.Value 'Bb = N25
If UserForm2.N26.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N26.Value 'Bc = N26
If UserForm2.N27.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N27.Value 'Bd = N27
If UserForm2.N28.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N28.Value 'Be = N28
If UserForm2.N29.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N29.Value 'Bf = N29
If UserForm2.R1.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R1.Value 'Da = R1
If UserForm2.R2.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R2.Value 'Db = R2
If UserForm2.R3.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R3.Value 'Dc = R3
If UserForm2.R4.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R4.Value 'Dd = R4
If UserForm2.R5.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R5.Value 'De = R5
If UserForm2.R6.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R6.Value 'Df = R6
If UserForm2.R7.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R7.Value 'Dg = R7
If UserForm2.R8.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R8.Value 'Dh = R8
If UserForm2.R9.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R9.Value 'Di = R9
If UserForm2.R10.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R10.Value 'Dj = R10
If UserForm2.R11.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R11.Value 'Dk = R11
If UserForm2.R12.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R12.Value 'Dl = R12
If UserForm2.R13.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R13.Value 'Dm = R13
If UserForm2.R14.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R14.Value 'Dn = R14
If UserForm2.R15.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R15.Value 'Dp = R15
If UserForm2.R16.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R16.Value 'Dq = R16
If UserForm2.R17.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R17.Value 'Dr = R17
If UserForm2.R18.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R18.Value 'Ds = R18
If UserForm2.R19.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R19.Value 'Dt = R19
If UserForm2.R20.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R20.Value 'Du = R20
If UserForm2.R21.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R21.Value 'Dv = R21
If UserForm2.R22.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R22.Value 'Dw = R22
If UserForm2.R23.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R23.Value 'Dx = R23
If UserForm2.R24.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R24.Value 'Dy = R24
If UserForm2.R25.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R25.Value 'Dz = R25
If UserForm2.R26.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R26.Value 'Ea = R26
If UserForm2.R27.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R27.Value 'Eb = R27
If UserForm2.R28.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R28.Value 'Ec = R28
If UserForm2.R29.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R29.Value 'Ed = R29
If UserForm2.R30.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R30.Value 'Ee = R30
If UserForm2.R31.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R31.Value 'Ef = R31
If UserForm2.R32.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R32.Value 'Eg = R32
If UserForm2.R33.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R33.Value 'Eh = R33
If UserForm2.R34.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R34.Value 'Ei = R34
If UserForm2.R35.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R35.Value 'Ej = R35
If UserForm2.R36.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R36.Value 'Ek = R36
If UserForm2.R37.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R37.Value 'El = R37
If UserForm2.R38.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R38.Value 'Em = R38
If UserForm2.R39.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R39.Value 'En = R39
If UserForm2.R40.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R40.Value 'Eo = R40
If UserForm2.R41.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R41.Value 'Ep = R41
If UserForm2.R42.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R42.Value 'Eq = R42
If UserForm2.R43.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R43.Value 'Er = R43
If UserForm2.R44.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R44.Value 'Es = R44
If UserForm2.R45.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R45.Value 'Et = R45
 
Trier par date Trier par votes
A

A l l i g a t o r 427

XLDnaute Nouveau
Re : raccourcire se code

Hello

Le code proposé par Softmama fonctionne sur mon Excel
(J'ai ajouté en début de module: Dim t As Byte )
J'ai testé avec 4 TextBox, chacune contenant une valeur numérique
Ces valeurs sont bien renvoyés dans les cellules
(C'est normal que H3 et H33 soient vides puisque on commence en décalant de 1 : .Offset(t) avec t=1 au départ )
 
Vote positif 0 Vote négatif
Jam

Jam

XLDnaute Accro
Re : raccourcire se code

Bonsoir,

Juste une petite question de compréhension: le code est-il dans le module du usf où dans un module à part ? S'il s'agit du premier cas, il conviendrait d'utiliser le mot clé Me en lieu et place de userform2 ;)

Bonne nuit,
 
Vote positif 0 Vote négatif
G

gege21

XLDnaute Occasionnel
Re : raccourcire se code

bonjours.

je ne comprend pas chez moi sa marche pas
voici un exemple avec 9 textbox
peut-être ai-je fais une erreur ??
 

Pièces jointes

  • Classeur1.xls
    40 KB · Affichages: 42
  • Classeur1.xls
    40 KB · Affichages: 58
  • Classeur1.xls
    40 KB · Affichages: 59
Vote positif 0 Vote négatif
A

A l l i g a t o r 427

XLDnaute Nouveau
Re : raccourcire se code

Hello

>Gege21
C'est avec le code de Softmama que cela fonctionne.
Celui du message numéro 9.

Code: 
Private Sub CommandButton1_Click()
Dim t As Byte
For t = 1 To 9
Sheets("record").Range("H3").Offset(t) = Val(UserForm1.Controls("N" & t))
Next t
End Sub

Attention dans ta pièce jointe, ton Userform se nomme UserForm1 pas UserForm2
(alors que dans ta macro, il y a écrit UserForm2)
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Problèmes de lenteur d'un code vba dans un Userform
Réponses
3
Affichages
1 K
Dranreb
Dranreb
L
  • Question
XL 2019 Tri simultane sur 2 colonnes
Réponses
5
Affichages
481
juvaxe
J
F
  • Question
Simplification de code
Réponses
1
Affichages
650
Dranreb
Dranreb
D
  • Question
raccourcir un code
Réponses
2
Affichages
897
dede039
D
B
  • Question
Code VBA sous Excel 2010 ne fonctionnant pas avec Excel 2013
Réponses
9
Affichages
2 K
Biork
B
H
  • Question
Trop grand...
2
Réponses
18
Affichages
14 K
Hollowman06
H
grisan29
  • Question
code listbox a modifier pour fonctionner dans une litview
Réponses
2
Affichages
745
grisan29
grisan29
R
  • Question
probleme sur un petit bout de code
Réponses
9
Affichages
967
rainbow69006
R
C
  • Question
Worksheet procédure trop longue...
Réponses
13
Affichages
2 K
Christian0258
C
G
  • Question
Probleme de code du a migration vers EXCEL 2007
2
Réponses
24
Affichages
3 K
JNP
JNP

Membres actuellement en ligne

21 membres et 421 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 237
Messages
2 086 488
Membres
103 233
dernier inscrit
Ange.wil