Comment ecrire un code pour eviter de le repeter 30 fois

Salut Hannoun,

Essaie comme ceci :

Private Sub Valider_Click()
Dim MonTotal As Double
Dim Col As String

If MTp = "6280" Then
Col = "D"
Range("D29").Value = Val(UserForm1.TextBox41)
ElseIf MTp = "6281" Then
Col = "E"
Range("E29").Value = Val(UserForm1.TextBox41)
ElseIf MTp = "6305" Then
Col = "F"
Range("F29").Value = Val(UserForm1.TextBox41)
ElseIf MTp = "6709" Then
Col = "AG"
Range("AG29").Value = Val(UserForm1.TextBox41)
else
If Not IsNumeric(TextBox2) Then
Range(Col & "5").Offset(0, 0) = ""
Else
Range(Col & "5").Offset(0, 0) = Val(UserForm1.TextBox2)
End If
Range(Col & "5").Offset(1, 0) = Val(UserForm1.TextBox3)
Range(Col & "5").Offset(2, 0) = Val(UserForm1.TextBox4)
Range(Col & "5").Offset(3, 0) = Val(UserForm1.TextBox5)
Range(Col & "5").Offset(4, 0) = Val(UserForm1.TextBox6)
Range(Col & "5").Offset(5, 0) = Val(UserForm1.TextBox7)
Range(Col & "5").Offset(39, 0) = Val(UserForm1.TextBox40)
End If
End Sub

A+
Horatio

MERCI Horatio
mais les colonnes reste vides

H@nnoun

Bonsoir,
Tu le valides comment ton numéro de machine ?
J'ai bien l'impression que ta macro ne le trouve pas :
Essaie :

Private Sub Valider_Click()
Dim MonTotal As Double
Dim Col As String

MsgBox MTp

Le reste sans changement.

J'ai bien l'impression que ton MsgBox va être vide. Alors tes If MTp =...
ils évaluent rien du tout...

A+

Bonsoir Galopin01
Merci pour ta reponse le msgbox mtp renvoie bien la selection

H@nnoun

Bonsoir Galopin01


la machine je la valide par le code

Dim MTp As String

MTp = ComboBox9.Value


je l'ai oublie dans la copie sorry

@++
H@nnoun

Bon,
Je serais curieux de savoir comment ? Variable publique ?

Comme tu as pas l'air trop fixé sur les End If je te demanderais d'essayer celà :

(selon la correction de notre ami Horatio) le début sans changement

else
If Not IsNumeric(TextBox2) Then
Range(Col & "5") = ""
Else
Range(Col & "5") = Val(UserForm1.TextBox2)
End If
End If
Range(Col & "5").Offset(1, 0) = Val(UserForm1.TextBox3)
Range(Col & "5").Offset(2, 0) = Val(UserForm1.TextBox4)
Range(Col & "5").Offset(3, 0) = Val(UserForm1.TextBox5)
Range(Col & "5").Offset(4, 0) = Val(UserForm1.TextBox6)
Range(Col & "5").Offset(5, 0) = Val(UserForm1.TextBox7)
Range(Col & "5").Offset(39, 0) = Val(UserForm1.TextBox40)

MsgBox Col
End Sub

Si ça ne marche pas tu peux me donner la valeur de retour de MsgBox MTp
et la valeur de retour de MsgBox Col

Re bonsoir
Merci pour ton aide
j'ai teste le msgbox MTp renvoie la machine 6281 qui est en E

le msgbox col renvoie bien la colonne selectionne E

est ce que cette ligne est correct

Range(Col & "5").Offset(1, 0) = Val(UserForm1.TextBox3)

Re Bonsoir LE FORUM

SI JE METS CE CODE CA MARCHE mais comment faire pour eviter d'ecrire tous ce code en remplacent D5 en E5 et ce jusque AG5
sachant que pour chaque colonne Le MTp change 6280 pour D 6281 pour E etc.......

Private Sub Valider_Click()

Dim MTp As String

If MTp = "6280" Then

Range("d29").Value = Val(UserForm1.TextBox41)
If Not IsNumeric(TextBox2) Then
Range("D5").Offset(0, 0) = ""
Else
Range("D5").Offset(0, 0) = Val(UserForm1.TextBox2)
End If
Range("d5").Offset(1, 0) = Val(UserForm1.TextBox3)
Range("D5").Offset(2, 0) = Val(UserForm1.TextBox4)
Range("D5").Offset(3, 0) = Val(UserForm1.TextBox5)
Range("D5").Offset(4, 0) = Val(UserForm1.TextBox6)
Range("D5").Offset(5, 0) = Val(UserForm1.TextBox7)
Range("D5").Offset(6, 0) = Val(UserForm1.TextBox8)
Range("D5").Offset(7, 0) = Val(UserForm1.TextBox9)
Range("D5").Offset(8, 0) = Val(UserForm1.TextBox10)
Range("D5").Offset(9, 0) = Val(UserForm1.TextBox11)
Range("D5").Offset(10, 0) = Val(UserForm1.TextBox12)
Range("D5").Offset(11, 0) = Val(UserForm1.TextBox13)
Range("D5").Offset(12, 0) = Val(UserForm1.TextBox14)
Range("D5").Offset(13, 0) = Val(UserForm1.TextBox15)
Range("D5").Offset(14, 0) = Val(UserForm1.TextBox16)
Range("D5").Offset(15, 0) = Val(UserForm1.TextBox17)
Range("D5").Offset(16, 0) = Val(UserForm1.TextBox18)
Range("D5").Offset(17, 0) = Val(UserForm1.TextBox19)
Range("D5").Offset(18, 0) = Val(UserForm1.TextBox20)
Range("D5").Offset(19, 0) = Val(UserForm1.TextBox21)
Range("D5").Offset(20, 0) = Val(UserForm1.TextBox22)
Range("D5").Offset(25, 0) = Val(UserForm1.TextBox23)

Range("D5").Offset(29, 0) = Val(UserForm1.TextBox30)
Range("D5").Offset(30, 0) = Val(UserForm1.TextBox31)
Range("D5").Offset(31, 0) = Val(UserForm1.TextBox32)
Range("D5").Offset(32, 0) = Val(UserForm1.TextBox33)
Range("D5").Offset(33, 0) = Val(UserForm1.TextBox34)
Range("D5").Offset(34, 0) = Val(UserForm1.TextBox35)
Range("D5").Offset(35, 0) = Val(UserForm1.TextBox36)
Range("D5").Offset(36, 0) = Val(UserForm1.TextBox37)
Range("D5").Offset(37, 0) = Val(UserForm1.TextBox38)
Range("D5").Offset(38, 0) = Val(UserForm1.TextBox39)
Range("D5").Offset(39, 0) = Val(UserForm1.TextBox40)
End If




MsgBox "Opération Enregistée", vbInformation, T
Unload Me
UserForm1.Show
EndSub



Merci
H@nnoun

Bonsoir H@NNOUN, Lord Nelson, galopin01, le Forum


H@NNOUN, à vrai dire, je n'ai pas tout compris dans ton code, mais dans l'hypothèse où la répartition des codes MTp s'étale de la colonne D à AG pour une valeur de 6280 à 6309 (et non "6709" comme tu le précises dans ton premier post), tu peux peut-être essayer le code ci-dessous dans lequel je me suis efforcé de traduire ce que tu souhaitais dans ton dernier post (sans pouvoir tester toutefois !) :

Private Sub Valider_Click()
Dim MTp As Integer
Dim L As Byte, C As Byte

   'Détermination de la colonne (de D à AG)
   MTp = Val(ComboBox9.Value)
   C = MTp - 6276
   With UserForm1
      'Complétude de la ligne 29
      Cells(29, C) = Val(.TextBox41)
      'Complétude de la ligne 5
      If Not IsNumeric(TextBox2) Then
         Cells(5, C) = ""
      Else
         Cells(5, C) = Val(.TextBox2)
      End If
      'Complétude des lignes de 6 à 25, 30 et de 34 à 44.
      For L = 1 To 39
         Select Case L
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case Is < 21
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(5 + L, C) = Val(.Controls("TextBox" & CStr(L + 2)).Text)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case 25
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(5 + L, C) = Val(.Controls("TextBox" & CStr(L - 2)).Text)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case Is > 28
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(5 + L, C) = Val(.Controls("TextBox" & CStr(L + 1)).Text)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End Select
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next L
&nbsp;&nbsp;&nbsp;End With

&nbsp;&nbsp;&nbsp;MsgBox "Opération Enregistée", vbInformation, T
&nbsp;&nbsp;&nbsp;Unload Me
End Sub


Cordialement.

Didier_mDF

Bonjour le forum Bonjour MyDearFriends

Merci pour ta reponse j'ai teste ton idee cela fonctionne a condition que la valeur soit de 6280 à 6309

mais mes numero de machine ne suivent pas voici un echantillon 6280
6281,6305,6310,6311,6312,6313,6317,6314,6316,6318,6321,6326,6327,
6328,6329,6330,6333,6334,6335,6336,6360,6361,6363,6370,6404,6405,
6406,6407,6756

et la liste va encore s'allonge c'est pourquoi j'ai demande de l'aide je savai qu'il y avait des cracks de VBA sur XLD

MERCI POUR TON AIDE

@++
H@nnoun

Re Bonjour le forum Re Bonjour MyDearFriends

MyDearFriends
ton code fonctionne tres bien
J'ai contourné le probleme de ma liste de machine j'ai ajouté un textbox que je masque
dans lequelle je recupere le numero corespondant de 6280 à 6309 l'operateur selectionne 6317 dans le combobox9 et dans le textbox s'affiche 6287 caché
et mes donnees saisie alimentent la colonne 6317 comme prevu

une petite question dans le code tu met MTP=-6276 a quoi correspond 6276

Merci encore pour ton aide ma feuille de procedure c'est bien allegée

@@@++++

H@nnoun

Bonjour H@nnoun, le Forum.


A quoi correspond 6276 ?

Tout simplement : si la série commence par 6280 et que je souhaite répartir cette série en colonnes avec comme point de départ la colonne "D" (c'est à dire la colonne 4 !), je considère donc que la première colonne du tableau correspond à 6276 + 1 unité, la deuxième à 6276 + 2 unités et ainsi de suite...
En colonne 4, on aura donc : 6276 + 4 unités, soit 6280.

Evidemment, cette façon de faire n'est valable que si, et seulement si, les nombres de la série se suivent et s'incrémentent d'une unité à chaque fois... ce qui n'est apparamment pas ton cas.


Cordialement.

Didier_mDF

Bonsoir MyDearFriends le forum

Merci pour tes explications je vais pouvoir appliquer ce code pour d'autre application du meme genre

comme je te l'ai dis plus haut dans le fil j'ai contourne en ajoutant une ligne au dessus des titres que je masque et un texbox masque qui fait reference et ça marche

Si tu n'ete pas la pour m'aider il aurait fallu t'inventer
encore MERCI pour ton aide vous etes les AS de l'XLD

@@++ H@nnoun