Contenu récent par youguybass

  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