Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Vba : Cette matricielle me joue des tours...

Vba : Cette matricielle me joue des tours...

4 réponses
Avatar
Domi
Bonsoir à tous,
J'utilise cette matricielle pour trouver, pour chaque ligne d'un tableau,
écart entre les dates mini et maxi (plage SUIVIDates) dans le cas ou la ref
qui se trouve dans la colonne L apparait plusieurs fois dans la colonne.
Le résultat est satifaisant mais un gros pb persiste, après avoir "figé" les
valeurs trouvées, les cellules qui sont sensées ne rien contenir ("""") ne
sont pas vriment vides (si je fais un estvide dessus, j'obtiens FAUX). Cela
m'ennuie pour la suite...
Qulqu'un aurait-il une solution ?

Sub TestDecalee()
'Application de la formule
Range("N16").Select
Selection.FormulaArray =
"=IF(COUNTIF(SUIVIRefUniq1,RC[-2])=1,"""",MAX((SUIVIRefUniq1=RC[-2])*SUIVIDa
tes)-MIN(IF(SUIVIRefUniq1=RC[-2],SUIVIDates,"""")))"
Selection.AutoFill Destination:=Range("N16",
Range("A65000").End(xlUp).Offset(0, 13)), Type:=xlFillDefault
'Passage en dur des resultats obtenus
Range("N16", Range("A65000").End(xlUp).Offset(0, 13)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Si j'utilise cette syntaxe :
Range("N16", Range("A65000").End(xlUp).Offset(0, 13)) = Range("N16",
Range("A65000").End(xlUp).Offset(0, 13)).Value
pour passer les résultats en dur, j'ai un méchant plantage...

Merci
Domi
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.M
Bonjour,

Le résultat est satifaisant mais un gros pb persiste, après avoir "figé" les
valeurs trouvées, les cellules qui sont sensées ne rien contenir ("""") ne
sont pas vriment vides (si je fais un estvide dessus, j'obtiens FAUX). Cela
m'ennuie pour la suite...
Qulqu'un aurait-il une solution ?


Pour ce problème, essaie avec NBCAR(uneCellule)=0

Tu vas obtenir des VRAIs lorsque ta cellule OU son résultat (d'une formule) te
donne une chaîne vide.

Salutations,

Daniel M.

Avatar
Domi
Merci Daniel, mais ça n'est pas vraiment obtenir des VRAI que je veux . Ce
que je voudrais c'est obtenir des cellules avec desvaleurs numériques ou
vraiment vides, de facon a ce que si je fais un tri sur cette colonne,
j'obtienne bien les valeurs numériques en haut de colonne et les vides
ensuite, ce qui n'est pas le cas actuellment.
Te sachant très fort dans les formules (non non je ne flagorne pas ;o) )
sais tu s'il est possible d'obtenir le même resultat avec une formule non
matricielle ? je te demande cela car je crois que bon nombre des soucis que
j'ai avec cette applic provienne de cette formule...

Merci
Domi


"Daniel.M" a écrit dans le message de
news:
Bonjour,

Le résultat est satifaisant mais un gros pb persiste, après avoir "figé"
les


valeurs trouvées, les cellules qui sont sensées ne rien contenir ("""")
ne


sont pas vriment vides (si je fais un estvide dessus, j'obtiens FAUX).
Cela


m'ennuie pour la suite...
Qulqu'un aurait-il une solution ?


Pour ce problème, essaie avec NBCAR(uneCellule)=0

Tu vas obtenir des VRAIs lorsque ta cellule OU son résultat (d'une
formule) te

donne une chaîne vide.

Salutations,

Daniel M.





Avatar
Daniel.M
Salut Domi,

La matricielle n'y est pour rien dans ton problème. Tu es en présence de
quasivides. Des cellules qui contiennent la chaîne vide: mais elles ne sont pas
vides!

Solution (parmi d'autres) à 2 tris.

1.Le premier tri groupera les quasivides (au début ou à la fin dépendant du tri
descendant/ascendant).
2.Tu en profites pour faire une boucle et, lorsque la longueur est 0 (voir mon
msg précédent), tu invoques la méthode ClearContents
Dès que tu rencontres une cellule avec len > 0, tu quittes la boucle.
3.Tu fais un autre tri.

Rapplique si tu as des problèmes à faire cela.


Ceci dit, tu pourrais réduire ton code (je crois)
Sub TestDecalee2()
Range("N16").FormulaArray = _
"=IF(COUNTIF(SUIVIRefUniq1,RC[-2])=1,"""",MAX((SUIVIRefUniq1=RC[-2])
*SUIVIDates)-MIN(IF(SUIVIRefUniq1=RC[-2],SUIVIDates,"""")))"
With Range("N16:N" & Range("A65000").End(xlUp).Row)
Range("N16").AutoFill Destination:=.Cells, Type:=xlFillDefault
.Value = .Value 'Passage en dur des resultats obtenus
End With
End Sub

Salutations,

Daniel M.


"Domi" wrote in message
news:epS$
Merci Daniel, mais ça n'est pas vraiment obtenir des VRAI que je veux . Ce
que je voudrais c'est obtenir des cellules avec desvaleurs numériques ou
vraiment vides, de facon a ce que si je fais un tri sur cette colonne,
j'obtienne bien les valeurs numériques en haut de colonne et les vides
ensuite, ce qui n'est pas le cas actuellment.



Te sachant très fort dans les formules (non non je ne flagorne pas ;o) )
sais tu s'il est possible d'obtenir le même resultat avec une formule non
matricielle ? je te demande cela car je crois que bon nombre des soucis que
j'ai avec cette applic provienne de cette formule...

Merci
Domi


"Daniel.M" a écrit dans le message de
news:
Bonjour,

Le résultat est satifaisant mais un gros pb persiste, après avoir "figé"
les


valeurs trouvées, les cellules qui sont sensées ne rien contenir ("""")
ne


sont pas vriment vides (si je fais un estvide dessus, j'obtiens FAUX).
Cela


m'ennuie pour la suite...
Qulqu'un aurait-il une solution ?


Pour ce problème, essaie avec NBCAR(uneCellule)=0

Tu vas obtenir des VRAIs lorsque ta cellule OU son résultat (d'une
formule) te

donne une chaîne vide.

Salutations,

Daniel M.









Avatar
Domi
Ca me trou !!!
Le simple fait d'utiliser ton code, celui dont tu crois qu'il allégera...,
et bien il allège mais en plus il règle le problème des quasivides, qui sont
désormais des bienvides ! :o))
Merci
Domi




"Daniel.M" a écrit dans le message de
news: #
Salut Domi,

La matricielle n'y est pour rien dans ton problème. Tu es en présence de
quasivides. Des cellules qui contiennent la chaîne vide: mais elles ne
sont pas

vides!

Solution (parmi d'autres) à 2 tris.

1.Le premier tri groupera les quasivides (au début ou à la fin dépendant
du tri

descendant/ascendant).
2.Tu en profites pour faire une boucle et, lorsque la longueur est 0 (voir
mon

msg précédent), tu invoques la méthode ClearContents
Dès que tu rencontres une cellule avec len > 0, tu quittes la boucle.
3.Tu fais un autre tri.

Rapplique si tu as des problèmes à faire cela.


Ceci dit, tu pourrais réduire ton code (je crois)
Sub TestDecalee2()
Range("N16").FormulaArray = _

"=IF(COUNTIF(SUIVIRefUniq1,RC[-2])=1,"""",MAX((SUIVIRefUniq1=RC[-2])

*SUIVIDates)-MIN(IF(SUIVIRefUniq1=RC[-2],SUIVIDates,"""")))"
With Range("N16:N" & Range("A65000").End(xlUp).Row)
Range("N16").AutoFill Destination:=.Cells, Type:=xlFillDefault
.Value = .Value 'Passage en dur des resultats obtenus
End With
End Sub

Salutations,

Daniel M.


"Domi" wrote in message
news:epS$
Merci Daniel, mais ça n'est pas vraiment obtenir des VRAI que je veux .
Ce


que je voudrais c'est obtenir des cellules avec desvaleurs numériques ou
vraiment vides, de facon a ce que si je fais un tri sur cette colonne,
j'obtienne bien les valeurs numériques en haut de colonne et les vides
ensuite, ce qui n'est pas le cas actuellment.



Te sachant très fort dans les formules (non non je ne flagorne pas ;o) )
sais tu s'il est possible d'obtenir le même resultat avec une formule
non


matricielle ? je te demande cela car je crois que bon nombre des soucis
que


j'ai avec cette applic provienne de cette formule...

Merci
Domi


"Daniel.M" a écrit dans le message de
news:
Bonjour,

Le résultat est satifaisant mais un gros pb persiste, après avoir
"figé"




les
valeurs trouvées, les cellules qui sont sensées ne rien contenir
("""")




ne
sont pas vriment vides (si je fais un estvide dessus, j'obtiens
FAUX).




Cela
m'ennuie pour la suite...
Qulqu'un aurait-il une solution ?


Pour ce problème, essaie avec NBCAR(uneCellule)=0

Tu vas obtenir des VRAIs lorsque ta cellule OU son résultat (d'une
formule) te

donne une chaîne vide.

Salutations,

Daniel M.