probleme incompatibilite de type

judoka0209 · 7 Mai 2018

bonjour, j'ai un soucis quand j'ecrit n'importe quoi dans le ligne 11 j'ai une incompatibilité de type quand je lance ma macro mais quand c'est vide ca fonctionne bien
merci

Staple1600 · 7 Mai 2018

Bonjour le fil, leforum

@judoka0209
Pour info
L'habitude est de rester dans le fil initial pour une même question ou projet ( cf la charte du forum)
( on est déjà au 3ième fil de discussion...)

Pourquoi désormais tu boucles sur la ligne 13 ???

Rouge · 7 Mai 2018

Bonjour,
Attention à toutes les valeurs dans "c.Offset(x)"
est-ce:
c.Offset(x,0) 'ligne x, même colonne
c.Offset(0,x,) 'même ligne, colonne x
Suivant le cas, on peut se retrouver en dehors de la feuille, ce qui génère une erreur.
Vérifiez.
Cdlt

Staple1600 · 7 Mai 2018

Re, Bonjour Rouge

Chez moi, (Excel 2003), le code plante en amont
Donc j'ai remplacé la ligne d'effacement des données par celles-ci
[C3].Resize(, Columns.Count - 2) = Empty

Je ne sais pas si cela resoudra le problème sur les versions supérieures d'Excel.

Rouge · 7 Mai 2018

Bonjour Staple1600,
Je n'avais pas vu qu'il y avait plusieurs demandes sur le même sujet, donc je me suis basé sur le fichier fournit qui ne contient qu'un bout de code sans les lignes d'effacement que vous citez.
Il serait souhaitable que judoka0209 se manifeste pour en dire un peu plus.
Cordialement

job75 · 7 Mai 2018

Bonjour judoka0209, JM, Rouge,

A quoi a servi la solution que j'ai donnée sur l'autre fil ???

Ici il est évident qu'il suffisait de remplacer le -2 par -10 dans Offset :

Code:

If .CountIf(plageA, "a") * .CountIf(c.Offset(-11), "jeu") * .CountIf(Range("c1:nc1"), MonthName(Month(c.Offset(-10)))) * _
.CountIf(plageB, MonthName(Month(c.Offset(-10)))) * .CountIf(c.Offset(-8), "a") Then

A+

Rouge · 7 Mai 2018

Bonjour job75,
En ce qui me concerne, comme je l'ai dit plus haut, je n'avais pas vu qu'il y avait déjà une demande sur le même sujet.
Je suis allé voir les autres fils, et je ne comprends pas qu'avec toutes les réponses fournies, comment se fait-il que le sujet revienne sur le tapis?
Cdlt

Staple1600 · 7 Mai 2018

Re, Bonjour job75

Pour ce qui me concerne, actuellement sous XL 2K3, je ne pouvais faire dans l'évidence
j'ai du convertir en *.xls pour ouvrir le fichier joint
Du coup, évident pas de colonne NC possible dans un *.xls
D'où ma correction initiale pour déjà lancer la macro sans boguer sur la 1ère ligne

Pour le reste, judoka02209 a écrit quelquepart dans un de ces fils, à propos de la multiplication des fils.

judoka0209 à dit:
je trouvais cela plus simple pour ceux qui m'aide
merci encore

judoka0209 · 7 Mai 2018

Staple1600 à dit:
Bonjour le fil, leforum

@judoka0209
Pour info
L'habitude est de rester dans le fil initial pour une même question ou projet ( cf la charte du forum)
( on est déjà au 3ième fil de discussion...)

Pourquoi désormais tu boucles sur la ligne 13 ???

car je suis obligé de l'adapter au prjet final

judoka0209 · 7 Mai 2018

job75 à dit:
Bonjour judoka0209, JM, Rouge,

A quoi a servi la solution que j'ai donnée sur l'autre fil ???

Ici il est évident qu'il suffisait de remplacer le -2 par -10 dans Offset :

Code:

If .CountIf(plageA, "a") * .CountIf(c.Offset(-11), "jeu") * .CountIf(Range("c1:nc1"), MonthName(Month(c.Offset(-10)))) * _ .CountIf(plageB, MonthName(Month(c.Offset(-10)))) * .CountIf(c.Offset(-8), "a") Then

A+

judoka0209 · 7 Mai 2018

Rouge à dit:
Bonjour job75,
En ce qui me concerne, comme je l'ai dit plus haut, je n'avais pas vu qu'il y avait déjà une demande sur le même sujet.
Je suis allé voir les autres fils, et je ne comprends pas qu'avec toutes les réponses fournies, comment se fait-il que le sujet revienne sur le tapis?
Cdlt

car je suis une grosse brelle qui essaie de comprendre mais j'ai du mal

judoka0209 · 7 Mai 2018

je ne comprend pas pourquoi c.Offset(-10

CountIf(Range("c1:nc1"), MonthName(Month(c.Offset(-10)))) * _
.CountIf(plageB, MonthName(Month(c.Offset(-10))))

Staple1600 · 7 Mai 2018

Bonsoir le fil, le forum, judoka, job75

@JUDOKA
Mets-toi sur une cellule de la ligne 13
Puis testes cette macro

VB:

sub test()
msgbox ActiveCell.Offset(-10).address
end sub

Normalement cela devrait éclairer ta lanterne

Sans oublier le dernier message de job75

job75 · 7 Mai 2018

judoka0209 à dit:
je ne comprend pas pourquoi c.Offset(-10

Mon Dieu, pour aller de la ligne 13 à la ligne 3.

Au train où ça va je ne vois pas comment vous pourrez terminer votre projet.

probleme incompatibilite de type

judoka0209

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Rouge

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Rouge

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Rouge

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

judoka0209

XLDnaute Occasionnel

judoka0209

XLDnaute Occasionnel

judoka0209

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires