Forums XLPages

Tous les messages (jad73)

« 1 2 3 4 5 6 »
a l'éxéction de la macro excel se ferme
#11
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 06-03-2013 22h26
bonjour le forum
j'ai code qui quand j'éxécute la macro excel se ferme.
Ce code fonctionne bien pour 3 n° mais la pour 5 non,de quoi cela vient-il.
je joint le fichier
merci

Pièce jointe:
xlsm quintés.xlsm   [ Taille: 50.35 Ko - Téléchargements: 480 ]
Hors Ligne
Rapport   Haut 

Re: les quartés
#12
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 15-02-2013 23h39
bonsoir Jean-Marie,le forum
merci pour la modification des formules,pour le moment je n'ai fait que le post1,j'ai pas mal de SOMMEPROD à changer,je verrais plus tard le 2.
merci encore
a+
Hors Ligne
Rapport   Haut 

les quartés
#13
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 14-02-2013 17h49
bonjour le forum

je recherche une formule ou code vba pour sortir d'une BdD les 4 N° qui sont le plus souvent ensemble.
Actuellement je procéde en 4 étapes
1-col WX les N° les + sortis
2-col AB:AC le N° le + sorti avec son ami
3-col AH:AI l'ami des 2 précédent N°
4- l'ami des 3 précédent N°
Malgré des macros c'est assez long
Y aurait-il une façon de faire en une seule étape
merci

Pièce jointe:
xlsm quarté.xlsm   [ Taille: 25.83 Ko - Téléchargements: 484 ]
Hors Ligne
Rapport   Haut 

Re: modifier formule dans macro
#14
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 10-06-2012 12h02
Bonjour Eric,le forum
pour répondre a ton post de hier,je cherche simplement a faire changer les valeures de la formule "NB.SI(Feuil1!$B$2:$F$51;A6)" en "NB.SI(Feuil1!$B$3:$F$52;A6) a chaque clic de la macro et ainsi de suite-$B$4:$F$53-clic macro-$B$5:$F$54 etc....
j'ai fait comme tes indications du post #4 et ça ne change pas,mais ça vient trés certainement de moi ne comprenant pas grand chose au vba(pour dire rien) alors j'ai marqué résolu pour arreter la discussion.
merci a vous et de votre patience
bonne journée
Hors Ligne
Rapport   Haut 

Re: modifier formule dans macro
#15
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 09-06-2012 09h21
bonjour Eric,le forum
merci pour ta réponse mais les valeurs de la formule en B6 ne change pas a chaque clic de la macro.
merci
Hors Ligne
Rapport   Haut 

Re: modifier formule dans macro
#16
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 08-06-2012 10h23
bonjour Eric,le forum


je ne comprend pas ton code,doit-il remplacer mon autre code.
De plus la formule a modifier ce trouve en "B6" c'est cette formule "NB.SI(B2:F51;A6) qui doit changer chaque fois-"B2:F51"->"B3:F52" ainsi de suite.
merci
Hors Ligne
Rapport   Haut 

modifier formule dans macro
#17
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 28-05-2012 19h06

bonjour le forum
j'ai une macro et je voudrais inserer une formule dont les valeurs change a chaque clic de la macro.
la formule est "NB.SI($B$2:$F$41;A6)"au départ,puis a chaque clic les valeurs "2 et 41" augmente de +1 ce qui donnerais "NB.SI($B$3:$F$42;a6)",mais comment l'incrire dans la macro.elle devrais s'inscrire entre le"End With" et le "Range("A6:B54").Copy"
 
Sub Macro4()
' Macro4 - 40-Auto
Dim plg As Byte
Dim dlg As Integer, vligne As Integer
dlg = Range("L" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = True
For plg = 34 To dlg
    With Range("H" & plg & ":L" & plg)
        .Copy Range("C1")
        .ClearContents
    End With




    Range("A6:B54").Copy
    Range("C6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    With ActiveWorkbook.Worksheets("40").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("D6:D54"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("C6:D54")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Calculate
    'Range("G5").Select
    vligne = Range("AD65536").End(xlUp).Row + 1
    Range("C3:G3").Copy
    Range("AD" & vligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Dim Cellule As Range
Dim Plage As Range

Dim i, l, c As Integer
i = 6
Set Plage = Range("C1:G1")
While IsEmpty(Range("A" & i)) = False
     For Each Cellule In Plage
      If Range(Cellule.Address).Value = Range("C" & i).Value Then
      l = Range("E" & i).Value + 8
      c = Range("F" & i).Value + 10
      Cells(c, l) = Cells(c, l) + 1
      End If
     Next Cellule
      i = i + 1
Wend
Next
Application.ScreenUpdating = False
Range("G5").Select
End Sub




merci


Hors Ligne
Rapport   Haut 

fenetre insertion de code vba
#18
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 28-05-2012 17h23
Bonjour le forum
j'ai la fenetre d'insertion de code vba ou formule excel qui s'affiche a l'écran mais impossible de copier ou d'écrire dedans n'y de la fermer par la croix ou cancel et impossible de retourner sur le forum je suis obliger de fermer internet pour y revenir.
Quelqu'un saurait-il me dire de quoi cela vient
merci
Hors Ligne
Rapport   Haut 

Re: ou est l'erreur dans le code vba
#19
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 07-02-2012 18h19
bonjour jean-marie,le forum



merci pour ta réponse.

excuse pour cette erreur,pour ce classeur c'est bon.
j'ai un autre classeur avec 20 colonnes et 69 numéros,j'ai donc rajouté certaines données(les Dim,Case et Range)mais il comptablise que jusqu'au tableau des 40 mais avec des oublis dans ce tableau,par contre rien dans les 50 et 60,si tu pourrais voire ou j'ai fait des erreurs


merci



Pièce jointe:
xlsm jadke.xlsm   [ Taille: 43.35 Ko - Téléchargements: 413 ]
Hors Ligne
Rapport   Haut 

Re: ou est l'erreur dans le code vba
#20
Régulier XLPages

Inscription: 31/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
excel 2003
Posté le : 04-02-2012 17h50


bonjour Jean-Marie,le forum



merci pour ta réponse,mais j'ai une erreur 9"l'indice n'appartient pas a la selection"
 



 TbloE(Cel, Cells(I + 1, J).Value) = TbloE(Cel, Cells(I + 1, J).Value) + 1



merci
Pièce jointe:
xlsm jad73_v1 (1).xlsm   [ Taille: 47.98 Ko - Téléchargements: 420 ]
Hors Ligne
Rapport   Haut 

« 1 2 3 4 5 6 »