Calcul VBA

[medamine]

Bonjour,


j'aimerai bien que vous m'aidez à calculer le taux de demande répété par:

Client + demande + Agent + Jour

Ci-joint le template

Merci d'avance

 

[Dull]

Re : Calcul VBA

Salut medamine, le Forum

Laisse, STP, le temps aux membres de lire et comprendre ton problème car tu as posté EN MOINS de 6 MINUTES 3 MESSAGES pour le même sujet Patience est mère de vertu dit-ont 🙄

🙂Salut & Bises Mireille🙂

Ca vient peut-être de moi mais je ne me représente pas trop bien ce que tu souhaites (même pas du tout)

MêmeCombat 😀

RE EDITH:

...Bon, moi je dis toujours comme toi, ça devient même routinier depuis quelques temps 😀...

Et vice versailles... 😉 @++ Sœurette 🙂

Bonne Journée

 

[mth]

Re : Calcul VBA

Bonjour medamine,

Dis, tu as l'intention d'ouvrir combien de fils comme ça?
https://www.excel-downloads.com/threads/vba.151644/
https://www.excel-downloads.com/threads/solution-de-calcul-vba.151653/

Choisis en un et restes y, sans quoi on s'y perd et tu n'auras jamais de réponse!

Par ailleurs, pourrais-tu donner une idée du résultat attendu, un exemple?
Ca vient peut-être de moi mais je ne me représente pas trop bien ce que tu souhaites (même pas du tout)

Bon après-midi,

mth

Edit: Hello Dull 🙂 🙂 🙂
Bon, moi je dis toujours comme toi, ça devient même routinier depuis quelques temps 😀
Contente de te croiser en tout cas 🙂
Bises et à bientôt 🙂
m

 

[Softmama]

Re : Calcul VBA

Bonjour,


je crois comprendre que tu as besoin que le code VBA te génère un n° de demande en colonne G sous la forme "CAS-n°client-demande-Agent-Jour"

Si n°client est en colonne B,
demande est en colonne D,
Agent est en colonne C,
Jour est en colonne A alors tu peux coller le code suivant :

Sub NumDemande()
Set c = [G2]
Do While c <> ""
    If Cells(c.Row, 1) = "" Then Exit Sub
    c = "CAS-" & c.Offset(0, -5) & "-" & c.Offset(0, -3) & "-" & c.Offset(0, -4) & "-" & Format(c.Offset(0, -6),"yyyymmdd")
    Set c = c.Offset(1, 0)
Loop
End Sub

 

[ROGER2327]

Re : Calcul VBA

bonjour medamine

Bonjour,


j'aimerai bien que vous m'aidez à calculer le taux de demande répété par:

Client + demande + Agent + Jour

Ci-joint le template

Merci d'avance

Comme il n'y a pas de champ "demande", c'est clair comme le jus de ma pipe.
Pour les lecteurs bêtement francophones, mais qui voudraient aider malgré ce handicap fatal, template est un mot de globiche qui signifie "patron", "modèle de présentation", "patron de mise en page".
​

ROGER2327
#4392

Dimanche 22 Haha 138 (Résurrection de Bosse-de-Nage, SS)
6 Brumaire An CCXIX
2010-W43-3T12:30:46Z

 

[medamine]

Re : Calcul VBA

Je veux avoir le taux de "client" qui ont appelé pour la même demande "sujet" sur la même date "Crée le"
Merci d'avance

 

[medamine]

Re : Calcul VBA

ce vba Code ne marche pas!!

Sub NumDemande()
Set c = [G2]
Do While c <> ""
If Cells(c.Row, 1) = "" Then Exit Sub
c = "CAS-" & c.Offset(0, -5) & "-" & c.Offset(0, -3) & "-" & c.Offset(0, -4) & "-" & Format(c.Offset(0, -6),"yyyymmdd")
Set c = c.Offset(1, 0)
Loop
End Sub

 

[mth]

Re : Calcul VBA

re 🙂

La question n'était pas d'une limpidité absolue, mais là, on arrive presque à lire ce qui est écrit:

6),"yyyymmdd")
[COLOR=yellow]Set c = c.Offset(1, 0)[/COLOR]
Loop

Et si on essayait police blanche sur fond blanc, taille 0.5, webdings ?
Parce que là ça devient trop facile !!

@ +

mth

 

[ROGER2327]

Re : Calcul VBA

Bonjour mth

re 🙂

La question n'était pas d'une limpidité absolue, mais là, on arrive presque à lire ce qui est écrit:

6),"yyyymmdd")
[COLOR="Yellow"]Set c = c.Offset(1, 0)[/COLOR]
Loop

Et si on essayait police blanche sur fond blanc, taille 0.5, webdings ?
Parce que là ça devient trop facile !!

@ +

mth

Hm... C'est chaud, aujourd'hui !
Mon tensiomètre vient d'exploser !​

ROGER2327
#4396

Dimanche 22 Haha 138 (Résurrection de Bosse-de-Nage, SS)
6 Brumaire An CCXIX
2010-W43-3T13:23:41Z

 

[medamine]

Re : Calcul VBA

désolé, voila le code

Sub NumDemande()
Set c = [G2]
Do While c <> ""
If Cells(c.Row, 1) = "" Then Exit Sub
c = "CAS-" & c.Offset(0, -5) & "-" & c.Offset(0, -3) & "-" & c.Offset(0, -4) & "-" & Format(c.Offset(0, -6),"yyyymmdd")
Set c = c.Offset(1, 0)
Loop
End Sub

 

[Softmama]

Re : Calcul VBA

salut le fil,

ben ce VBA code (sisi c'est son nom) fonctionne à merveille. Du moins, il réalise pile poil ce que j'avais compris de ta demande. De 3 choses l'une : ou je suis autiste et ne comprends pas ta demande légitime et pourtant formulée intelligiblement et détaillée à la perfection, ou je le fais exprès, ou c'est de la provocation de ma part. J te rassure je penche plutôt pour le #1.

Un Xlaute autiste et fâché ne produit rien de bon !

 

[Dull]

Re : Calcul VBA

Re le Fil

M. Roger 🙂 et Softmama🙂... Prière de me faire parvenir l'adresse de votre fournisseur de boulesdeCristal...SVP😀 ...lemien...àfermésesportes...😱

@Roger 🙂 Ci-Joint un tensiomètre neuf ...Avec beaucoupd'espoir 😀

@Softamama 🙂 désolé...jen'aiqu'untensiomètreenréserve 😱

Bonne Journée



Bonne journée

 

[ROGER2327]

Re : Calcul VBA

Re...

Merci ! C'est la classe !
Mais je crois qu'il déconne un peu (le tensiomètre, hein, pas de blague...) : normalement, c'est écrit 225 158 110. (Le mien, c'est ce qu'il disait avant de fondre.)​

ROGER2327
#4400

Dimanche 22 Haha 138 (Résurrection de Bosse-de-Nage, SS)
6 Brumaire An CCXIX
2010-W43-3T14:33:50Z

 

[medamine]

Re : Calcul VBA

ça passe pas lorsqu'il arrive à l'étape : Set c = c.Offset(1, 0)

 

[JCGL]

Re : Calcul VBA

Bonjour à tous,
Salut les amis 🙂🙂,

Juste pour le plaisir de vous croiser et un essai par TCD pour contrarier le titre...

Avec le peu que j'ai compris... Comme vous...

Ne rigolez pas avec l'HTA ou je vous fait une capture du mien (pire que les valeurs de Roger...)

A++ et Bises à Mimi
A+ à tous