Résultats de la recherche

  1. T

    création fonction personalisée

    Bonjour a tous, J'ai codé une procédure malheureusement le sub ne s'execute pas parce que "procédure trop grande". Je l'ai réduite au maximum, mais ça ne suffit pas. Je ne peux pas la couper en deux parce que je joue avec deux variables au sein d'une même boucle for. Si j'avais deux...
  2. T

    Portée de la variable : d'un userform à un module

    Bonjour, Dans le tableau ci-joint j'ai deux userform. Dans chacun des deux, j'ai une variable à laquelle j'accorde une valeur. Je voudrais garder en mémoire cette valeur pour pouvoir la récupérer dans un module. Pouvez vous m'aider s'il vous plait ? Merci
  3. T

    Erreur de compliation pb userform

    Bonjour, Pourriez vous, s'il vous plait, me dire pourquoi le code que j'ai mis dans le userform ne fonctionne pas ? Je ne comprends pas, il fonctionnait tout à l'heure et je ne vois pas ce que j'ai pu modifier... Ca me rend dingue ! Je vous en remercie...
  4. T

    Checkbox : Controle de formulaire ou activex

    Bonjour, Voila je voudrais insérer des checkbox dans mon tableau. J'ai regardé sur le forum comment faire et j'ai trouvé la possibilité de les faire via le controle de formulaire ou bien en activex. J'arrive pas à comprendre la différence. Pour vous préciser le contexte je veux utiliser...
  5. T

    VBA : if avec conditions complexes

    Bonjour, Je sollicite votre aide, parce que j'ai un problème avec mes conditions; actuellement j'ai le code suivant : ElseIf Cells(I, H) & Cells(I, K) & Cells(I, J) = Cells(I - 1, H) & Cells(I - 1, K) & Cells(I - 1, J) And WorksheetFunction.RoundUp(Cells(I - 1, D1), 0) = M And Cells(I -...
  6. T

    Arrondi inférieur VBA

    Bonjour, Je souhaiterais faire un arrondi inférieur lors d'un calcul. Pourriez vous, s'il vous plait, me dire comment rédiger l'arrondi ? Voici mon code : Cells(I, B1) = [((M - Cells(I - D1)) * Cells(I, F)) / Cells(I, G)] * Cells(I, F) J'ai mis des crochets pour délimiter l'arrondi...
  7. T

    Union & Range. Bug

    Bonjour, Pouvez vous, s'il vous plait, me dire ce qui ne va pas avec le code suivant : Sheets("PC").Activate Union(Range("A:A"), Range("B:B"), Range("D:D"), Range("F:F"), Range("H:H"), Range("J:J"), Range("P:P"), Range("R,R")).Copy Destination:=Sheets("DC").Range("A:H") En vous...
  8. T

    Problème de code... Deux variables

    Bonjour, J'essaye de faire un sub tout simple, copier des cellules dans une feuille pour les coller dans une seconde. Voici mon code : Sub Macro_GC() Sheets("Préparation_commandes").Activate Dim Nb_lignes As Integer Nb_lignes = WorksheetFunction.CountA(Range("A:A")) For i = 2 To...
  9. T

    Afficher tout avant de supprimer

    Bonjour, Dans un de mes classeurs, à chaque fois que je lance une mise à jour des données je voudrais qu'il commence par effacer complêtement la feuille2. Aussi j'avais rédigé le code suivant : Cells.Select Selection.ClearContents Je me suis rendu compte que lorsqu'un filtre était...
  10. T

    Une histoire de boucle

    Bonjour, J'essaye de faire une boucle grâce à for. For i = nb_lignes To 2 j = i - 1 If IsEmpty(Cells(i, 21)) And Cells(i, 1) & Cells(i, 2) & Cells(i, 24) Like Cells(j, 1) & Cells(j, 2) & Cells(j, 24) Then Cells(j, 23) = Cells(i, 23) Else End If Next Comme...
  11. T

    Problème VBA

    Bonjour, Je débute en VBA. J'ai utilisé l'assistant pour obtenir le code suivant : Range("N2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISBLANK(RC[-13]),"""",IF(RC[-5]=""Box"",""Box"",(RC[-2]-RC[-3])/RC[-4]))" Range("N2").Select Range(Selection...
  12. T

    Définition du format à l'intérieur d'une formule

    Bonjour, Je souhaiterais faire la formule suivante : ="Période d'analyse : "&MIN(B6:B35)&" au "&MAX(B6:B35)&" soit "&(MAX(B6:B35)-MIN(B6:B35))&" jours" Je suis très content de cette formule cependant le min et le max renvoient mes dates en format standard donc en nombre. Or je...
  13. T

    Définition d'une suite logique (Urgent)

    Bonsoir, J'ai besoin de définir la suite suivante (dans l'exemple ci-dessous entendre par " ' " feuille 2) C1'=A1 C2'=A1 C3'=A1 ... C16'=A1 C17'=A2 C18'=A2 C19'=A2 ... C32'=A2 C33'=A3 C33'=A3 ... Je voudrais pouvoir tirer cette formule jusqu'à la ligne 4 000. Je ne me...
  14. T

    Utiliser recherchev comme clef de recherche pour nouvelle recherchev =>pb de résultat

    Bonjour, J'ai un classeur X qui est mon tableau source. Dedans on y trouve la liste exhaustive de toutes les données. Parmis ces données il y a des dates (colonne A) et des noms (colonne B). Chaque nom peut apparaitre plusieurs fois, avec des dates différentes. J'ai un second classeur...
  15. T

    comment supprimer des lignes en VBA si la colonne A ne commence pas par un chiffre ??

    Bonjour à toutes et à tous... Je crois que tout est dans le titre. Lorsque je demande à ma macro de faire une extraction d'un fichier txt sur excel, j'ai quelques lignes parasites que je suis oblige de supprimer a la main avant de relancer une deuxieme macro. Je voudrais etre capable de...
  16. T

    macro comment demander a excel d'ecrire a la premiere ligne vide

    Bonjour, Je suis actuellement en train de travailler a la realisation d'un tableau assez complique pour lequel j'ai besoin de votre expertise. Je souhaiterais qu'excel fasse une extraction, jusque la rien de bien complique, mais il faudrait qu'il ajoute les lignes en dessous de celles de...