Contenu récent par doudou080

  1. D

    copier coller uniquement les valeurs en vba

    Ca y est ,ca marche J'ai copié collé bêtement . b.Range(t2).Value = fs.Range(t1 & ln).Value au liue de: fb.Range(t2).Value = fs.Range(t1 & ln).Value par contre pouvez vous m'expliqué cette ligne de commande. ca marche mais je ne comprend pas. encore merci pour votre aide.
  2. D

    copier coller uniquement les valeurs en vba

    Bonjour merci pour votre réponse. j'ai une boite de dialogue : erreur d’exécution 424 , objet requis Sub Imprimer() Dim fs, fb Set fs = ActiveSheet Set fb = Sheets("gestion des supports") If Intersect(ActiveCell, Range("E10:E" & Range("E" & 65536).End(xlUp).Row)) Is Nothing...
  3. D

    copier coller uniquement les valeurs en vba

    Bonjour a tous malgré avoir lu plein de chose ,Je n'arrive pas modifier une macro existante. Cette macro tourne très bien mais elle change le format des cellules de destinations: F8:G8", "F5", "G5", "C36", "G2", "D21:E21", "E8 elle garde le format source police : Times New Roman taille : 10...
  4. D

    Fonction si + RechercheV

    Bonjour Chris C'est ok pour tout. merci pour la fonction: =SOMMEPROD((TARIFS!$A$2:$A$49=B14)*(TARIFS!$B$2:$B$49=C14)*(TARIFS!$C$2:$C$49=D14)*(TARIFS!$D$2:$D$49=E14)*(TARIFS!$E$2:$E$49=F14);TARIFS!$F$2:$F$49) je m'en suis servi aussi pour alimenter mon deuxième tableau...
  5. D

    Fonction si + RechercheV

    OUPS LE FICHIER
  6. D

    Fonction si + RechercheV

    je commence a comprendre. Votre formule est basée sur des colonnes qui contiennes des chiffres . et moi pour un souci de confidentialité j'ai remplacé dans les colonnes E et F les noms par des chiffres et idem dans le tableau tarif si joint nouveau tableau avec des noms je voudrais aussi...
  7. D

    Fonction si + RechercheV

    Bonjour Chris je ne comprend pas c'est une formule avec une somme produit mais comment reconnait elle ce quelle doit chercher sans une fonction comme par exemple rechercheV je suis perdu cordialement
  8. D

    Fonction si + RechercheV

    bonjour a tous je reviens vers vous pour un problème avec la fonction SI + RechercheV. j'ai regardé sur plusieurs exemples mais rien ne correspond a ma formule. si vous pouvez m'aider ça serai sympa . Dans l'onglet Vierge colonne I, je voudrais inseré le mombre de l'onglet Tarif colonneF je...
  9. D

    comment associer deux modules a un seul bouton

    bonjour a tous pour associer 2 modules a un seul bouton UserForm c'est ok pour moi avec ca que j'associe a mon bouton.( merci à Robert pour son aide ) Sub Macro2() ' ' Macro2 Macro Module1.Imprimer Module2.Imprimer End Sub changer la hauteur de police en (arial 10) alors que je suis en arial...
  10. D

    comment associer deux modules a un seul bouton

    bonsoir a tous je me permet de relancer le sujet. quelqu’un peut il me venir en aide svp cordialement
  11. D

    effacer le contenu des cellules après impression

    merci pour les infos mais comment mettre un contrôle sur l'imprimante. moi je suis une quiche en VBA cordialement votre
  12. D

    effacer le contenu des cellules après impression

    si c'est pour l'association des deux modules a un seul bouton. est il possible de réunir en un seul module mais deux modules ? quand pensez vous ? cordialement
  13. D

    effacer le contenu des cellules après impression

    bonjour c'est pour quel sujet ? J'espère que votre imprimante est sûre, et qu'elle ne fait pas de bourrage. Sinon, re-saisie ? effacer le contenu des cellules après impression ou comment associer deux modules a un seul bouton
  14. D

    effacer le contenu des cellules après impression

    ca y est je m'en suis sortie. With Sheets("gestion des supports") For i = 2 To DerLig .Range("G1") = Sheets("plan chargement").Range("L" & i) .Range("F4:G4") = Sheets("plan chargement").Range("A" & i) .Range("F7:G7") = Sheets("plan...
  15. D

    effacer le contenu des cellules après impression

    bonjour a tous je voulais ajouter ClearContents pour effacer le contenu des cellules après impression je ne trouve pas ou ca bug qui peux m'aider svp cordialement votre Sub Macro1() ' ' Touche de raccourci du clavier: Ctrl+a ' Sheets("plan chargement").Select Range("A2").Select...