Résultats de la recherche

  1. Y

    XL 2013 Simplification boucles

    Bonjour et merci pour votre retour le 40 et le 41 sont bien inversés, c'est normal J'ai déja intégré le 1° code envoyé et vérifié a mon fichier, Celui-ci m'a l'air correct également Merci la démarche
  2. Y

    XL 2013 Simplification boucles

    Parfait ça marche correctement maintenant merci Et de plus sans fichiers bravo Encore merci
  3. Y

    XL 2013 Simplification boucles

    Cela fonctionne pour E=37 et C de 10 à 164 Mais par contre Pour E=39/40/41/42 et C de 12 à 166 / 14 à 168 .... cela ne fonctionne pas et je ne comprends pas pourquoi
  4. Y

    XL 2013 Simplification boucles

    Bonjour et merci Après essai Ce code ne copie dans mon tableau que le 'Remplissage des références les 'Remplissage des désignations Op/Clients/désignations Pièces/Ref clients ne sont pas complétés Slts
  5. Y

    XL 2013 Simplification boucles

    Je cherche à simplifier ces boucles en 1 seule Merci pour votre aide 'Remplissage des références E = 37 For C = 10 To 164 Step 11 If Me.Controls("TextBox" & C).Value <> "" Then Cells(L, E).Value = Me.Controls("TextBox" & C).Value E = E + 6 End If Next 'Remplissage des désignations Op E = 39...
  6. Y

    XL 2013 Sélection de plusieurs colonnes dans un tableau puis conversion en Date

    Bonjour et merci peux-tu juste m'expliquer le : Const fmt As String * 10 = "dd/mm/yyyy" pourquoi "String *10"
  7. Y

    XL 2013 Sélection de plusieurs colonnes dans un tableau puis conversion en Date

    Bonjour Je cherche à simplifier : ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(2).DataBodyRange.Select Selection.NumberFormat = "dd/mm/yyyy" ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(30).DataBodyRange.Select Selection.NumberFormat = "dd/mm/yyyy"...
  8. Y

    XL 2013 Calcul en boucle dans un userforme

    Parfait, Merci
  9. Y

    XL 2013 Calcul en boucle dans un userforme

    ou je lai essayé ton du#6, il ne prend pas les chiffres à virgule
  10. Y

    XL 2013 Calcul en boucle dans un userforme

    Effectivement la partie décimale disparait quelle serait la combine pour que les chiffres après la virgule soient pris en compte
  11. Y

    XL 2013 Calcul en boucle dans un userforme

    C'est bon Phil J'ai réussi avec : D = 0 For E = 200 To 220 Step 2 D = (Val(Me.Controls("TextBox" & E)) * Val(Me.Controls("TextBox" & E + 1))) + D Next TxtTotalMaintenance.Value = D avec avec "Val" et des parenthèses bien positionnées. Merci
  12. Y

    XL 2013 Calcul en boucle dans un userforme

    D = 0 For E = 200 To 220 Step 2 D = (Val(Me.Controls("TextBox" & E)) * Val(Me.Controls("TextBox" & E + 1))) + D Next TxtTotalMaintenance.Value = D J'ai réussi avec "Val et des parenthèses bien positionnées
  13. Y

    XL 2013 Calcul en boucle dans un userforme

    un peu de politesse de ma part! Merci quand même!
  14. Y

    XL 2013 Calcul en boucle dans un userforme

    Bonjour Ta solution ne fonctionne pas Ci-joint une petite partie du fichier Slts
  15. Y

    XL 2013 Calcul en boucle dans un userforme

    J'ai un pb avec ce sous programme qui me permettrai de faire une somme de plusieurs multiplications en boucle a partir de textbox 200 à 220 J'ai réalisé cette boucle mais elle ne fonctionne pas : J'ai comme message " incompatibilité de type" Sub CalculTotalFI() D = 0 For E = 200 To 220 Step 2...
  16. Y

    XL 2013 Comment appliquer le même code à plusieurs textbox dans un userforme

    Tout fonctionne Grand merci à toi pour le temps passé ainsi que le résultat 👏💪👌
  17. Y

    XL 2013 Comment appliquer le même code à plusieurs textbox dans un userforme

    Oui c'est bien cela ... c'est pour ligne 1 textbox51=textbox1*(textbox21+textbox41) pour ligne2 c'est textbox52=textbox2*(textbox22+textbox42) etc...etc....
  18. Y

    XL 2013 Comment appliquer le même code à plusieurs textbox dans un userforme

    Pour sub CalculTotal J'avais fait une boucle de 1 à 10 pour C Me.Controls("TextBox" & C + 50).Value = Me.Controls("TextBox" & C).Value * (Me.Controls("TextBox" & C + 20) + Val(Me.Controls("TextBox" & C + 40))) Pour Sub CalculTotal TextBox61 = TextBox51 + TextBox52 + TextBox53 + TextBox54 +...
  19. Y

    XL 2013 Comment appliquer le même code à plusieurs textbox dans un userforme

    Bonjour et merci Dans Sub Calculsomme Je ne sais pas comment intégré la formule, le calcul est simple, il consiste à : Textbox51 = Textbox1 *( Textbox21+ Texbox41) .... Le sub CalculTotal Consiste a ajouter les textbox, de la 51 à 60 Mais encore une fois la également, je ne sais pas comment...