si cellule X commence par 2014 , X étant déjà résultat d' une macro

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #2

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

En enlevant les explications " ' ", pour résumer
Workbooks.Open ThisWorkbook.Path & "\GESTION2013.xlsm"

Set WkC = Workbooks("GESTION2013.xlsm"): Set WkB = ThisWorkbook
Gaz = Array("404", "134", "407", "410", "NBR", "DEC", "N-m", "N-N", "REC", "REI", "HS", "CLO")

i = 8

For s = WkB.Sheets.Count To 5 Step -1
With WkB.Sheets(s)
For j = 22 To 40
For L = 0 To UBound(Gaz)
And Range("H17").Value Like "*2013*" _
And Range("H17").Value Like "*2012*" _

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Février 2014

• #3

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

Bonjour à tous

andrekn13
Il ne serait pas forcément inutile de penser à joindre un fichier exemple, non?
Cela éviterait de perdre du temps à recréer un fichier qui existe déjà sur ton disque dur 😉
Il faut juste que tu l’anonymises et l’allège si possible avant de le poster dans ta discussion.

PS: Tu peux aussi utiliser les balises BBCODE [NOPARSE]

Code:

Texte de la macro

[/NOPARSE]
Cela rendra ton message plus agréable à lire 😉

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #4

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

bonjour
merci de m' aider , je m' en occupe, car je tourne en rond , je crois qu'il faut coder avec 2 conditions
"si dans mon tableau ligne 22 à 40 je contient : R et une des quatre possibilitées : 404 ou 134 ou 407 ou 410
et
"si ma cellule H17 "qui correspond à l' année "201X"
alors

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Février 2014

• #5

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

Re

J'attends de voir ton fichier exemple pour mettre la main à la pâte.

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #6

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

RE
la macro en question est la derniere du module 1
Sub Récap7Gaz2013()
et oui le nbre de tentatives augmente depuis cette nuit !

 

Pièces jointes

• GESTION2013.xlsm

  23.2 KB · Affichages: 27
• GESTION2013.xlsm

  23.2 KB · Affichages: 41
• GESTION2013.xlsm

  23.2 KB · Affichages: 40
• BASE FACT.xlsm

  220.4 KB · Affichages: 41
• BASE FACT.xlsm

  220.4 KB · Affichages: 51
• BASE FACT.xlsm

  220.4 KB · Affichages: 48

Dernière édition: 2 Février 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Février 2014

• #7

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

Re

Anonymisation pas tout à fait complète 😉
K**FOU ANDRE / AK FROID

Sinon dans ton exemple (et sauf erreur de ma part) ,cette feuille n'existe pas dans ton classeur
WkC.Sheets("gaz 2013").Cells(i, 1) = .[H18]

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #8

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

je ne comprends pas
tu ne dois pas etre dans la derniere macro du module 1 tout est en WkC.Sheets("gaz 2014 detail")

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #9

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

je viens de reverif le fichier envoyé et aucune erreur de ce type

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #10

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

le code qui coince :
If UCase(.Cells(j, 1)) Like "*R*" & Gaz(L) & "*" And .Cells(j, 8) And .Cells(18, 8) = Year(Now) <> "" Then

c'est le mise en forme de la 2ème condition :And .Cells(18, 8) = Year(Now)
j' ai essayé toutes sortes de possibilités
condition 1:
UCase(.Cells(j, 1)) Like "*R*" & Gaz(L) & "*" And .Cells(j, 8)
condition 2 :
Range("H17").Value Like "*2013*" ????

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Février 2014

• #11

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

Re

Moi je regarde betement ou tu me dis de regarder 😉

la macro en question est la derniere du module 1
Sub Récap7Gaz2013()

Cliquez pour agrandir...

C'est vrai que ce n'est pas la dernière 😉

Pour revenir à ta question :
Et comme cela
If UCase(.Cells(j, 1)) Like "*R*" & Gaz(L) & "*" Then
If .Cells(j, 8) And .Cells(18, 8) = Year(Now) <> "" Then
' ton code
End If
End If

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #12

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

cette fois ci quand je selectionne la macro il ne me propose meme pas de pouvoir " executer"

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #13

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

re bnjour
je viens d' essayer avec :
If UCase(.Cells(j, 1)) Like "*R*" & Gaz(L) & "*" And .Cells(j, 8) <> "" Then
If Range("H17").Value Like "2014*" Then
que je viens de voir sur un autre post et rien n'y fait .....
merci de votre aide

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Février 2014

• #14

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

Re

Avec les modifs adéquates (renommage de la feuille en gaz 2014)
et saisie en A22 de R404test et d'une valeur en colonne H
la MgsBox affiche bien l'adresse de la plage, donc la syntaxe semble bonne non ?
PS: J'ai testé avant de publier ce message.
Je te laisse faire la modif sur ton code pour tester et nous dire si la MsgBox s'affiche bien.
Code VBA:
'dans BASE FACT, si à la 1ère cellule il y a un "R"suivi par "404" ( les 3 autres définis dans array) ET .Cells(j, 8):dans base fact entre ligne 22 et 40,la quantité en 8ème colonne , ALORS ...
'UCase converti la cellule en majuscule pour que le R soit reconnu
'le poit avant cells, c'est pour dire que ces cellules sont celles qui accompagnent le with, donc de FACT BASE et non de la feuille active gaz 2013
'cell est une cellule qui est définie par sa ligne puis sa colonne
If UCase(.Cells(j, 1)) Like "*R*" & Gaz(L) & "*" Then
If .Cells(j, 8) <> "" Then
MsgBox .Cells(j, 1).Address ' pour test [AJOUT STAPLE]
'1 😱n récupère l' info de la date dans " gaz 2013" Cells(i, 1)dans la 1ère colonne quand il y a un chiffre rempli dans quantité
WkC.Sheets("gaz 2014").Cells(i, 1) = .[H18]
'2: on récupère l'info du lien hypertexe, Cells(i, 2),à 8ème ligne dans la 2ème colonne
WkC.Sheets("gaz 2014").Hyperlinks.Add Anchor:=Cells(i, 2), Address:=WkB.FullName, _
SubAddress:="'" & WkB.Worksheets(s).Name & "'!H17", _
TextToDisplay:=Str(WkB.Sheets(s).Range("H17"))
'adresse de gaz 2013, on place ce tableau à la 8ème ligne, à partir de la 4ème colonne les résultats de BASE FACT entre ligne 22 et 40,la quantité en 8ème colonne
WkC.Sheets("gaz 2014").Cells(i, L + 4) = .Cells(j, 8)
i = i + 1
End If
End If

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 2 Février 2014

• #15

Re : si cellule X commence par 2014 , X étant déjà résultat d' une macro

Bonsoir
décidément je bugg, toute ma macro situe tout à la fin du modul 1, ma feuille concerne "gaz 2014 detail"
je ne comprends pas en quoi cela change de changer cette feuille de nom

 

Vote positif 0 Vote négatif