XL 2010 Problème (aléatoire ?) avec Range(Cells(a,b),Cells(c,d))

Staple1600

XLDnaute Barbatruc

• 5 Février 2020

• #2

Bonsoir le fil

Pour recopier, il suffit simplement de connaitre la 1ère cellule de la plage où se fera la copie
Voir cet exemple basique (sur un classeur avec 2 feuilles)

VB:

Sub test() 'macro purement illustrative
Dim LigneEnCours&, ACopier As Range
LigneEnCours = Cells(1).Row 'exemple
Set ACopier = ActiveSheet.Cells(LigneEnCours, "A").Resize(31)
ACopier.Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp)(2)
End Sub

La logique reste la même si il s'agit de deux fichiers distincts
(mais ils doivent être ouverts)
Je te laisse faire les adaptations

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Février 2020

• #3

Merci pour ta réponse. 🙂

Pardon, mais je ne comprends pas très bien ta première phrase.

Quant à ta proposition, certes ça doit fonctionner, mais il y a une des deux feuilles qui est active.
Est-ce que ça peut aussi fonctionner si aucune des deux feuilles n'est active ?

Mes deux classeurs sont bien ouverts. 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Février 2020

• #4

Re

Dans ton exemple, tu redimensiones la plage de recopie
(or ce n'est pas utile)
<il suffit d'indiquer uniquement la première cellule qui commence la plage
Exemple: tu veux copier A1:A31 de la feuille 1 en C1:C31 de la feuille 2
Donc il suffit de dire à Excel
Sheets(1).Range("A1:A31").Copy Sheets(2).Range("C1")

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Février 2020

• #5

Ah, OK. Je comprends mieux dit comme ça. 😉
Ca va déjà simplifier la ligne de commande. Merci.

Parfois la macro passe sans soucis et me recopie donc bien toutes les lignes de mon planning source vers mon planning de destination, mais parfois elle plante.
As-tu une idée de pourquoi ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Février 2020

• #6

Re

La réponse est dans l'absence d'un fichier exemple simplifié 😉
(et ou du code VBA complet incriminé)

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Février 2020

• #7

Arf... c'est LA réponse que je redoutais tant... 😉

En tout cas, merci pour tes réponses.
Je n'étais pas passé depuis de très nombreux mois, mais je vois que tu es toujours présent et prompt à répondre pour aider. Merci !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Février 2020

• #8

Re

Est-ce que tu as essayé ma macro illustrative au moins?
(Il suffit d'un classeur vierge avec deux feuilles
Et sur la feuille 1, tu saisis A1 en A puis tu recopies vers le bas jusqu'en A40 par exemple puis tu lances la macro
Observes alors ce qui se trouvera sur la feuille 2.
😉

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Février 2020

• #9

Non, je n'ai pas encore essayé. Mais tu peux être sûr que je le ferais dans les heures (ou jours) qui viennent. 😉

 

Dernière édition: 6 Février 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Février 2020

• #10

re
le plantage est du au parent non précise quand tu utilise cells dans la codification du range

sheets("toto").range(cells(1,2),cells(4,7)) ---> PAS BIEN!!!!!

with sheets("toto"):.range(.cells(1,2),.cells(4,7)) .....:end with ----> BIEN!!!!!

1 ere hypothèse

le "." dans le code designe que c'est un enfant du with toto
le code interprete donc cells(1,2) comme etant un object range

sans le point VBA interprète automatiquement cells(1,2) comme cells(1,2).value
et comme il n'y a pas de point c'est la valeur de cells(1,2) du sheets actif

donc !!
imaginons que tu ai deux feuilles (toto et titi )
tu est sur titi actif et que en cells(1,2) tu ai "coucou" et que en cells(4,7) tu est "Marcel32"
et bien cette ligne ci dessous
sheets("toto").range(cells(1,2),cells(4,7)) ---> PAS BIEN!!!!!

ET BIEN VBA L’INTERPRÈTE COMME
sheets("toto").range(Coucou,Marcel32) ---> PAS BIEN!!!!!

tu vois mieux le shmilblik la

2d hypothèse
tu est sur titi actif
et bien cette ligne ci dessous
sheets("toto").range(cells(1,2),cells(4,7)) ---> PAS BIEN!!!!!

ET BIEN VBA L'INTERPRÈTE COMME
sheets("toto").range(sheets("titi").cells(1,2),sheets("titi").cells(4,7)) ---> PAS BIEN!!!!!

il est difficile de déterminer quelle est la bonne car l'erreur est bloquante IMPOSSIBLE DONC DE VÉRIFIER CAR LES 2 LOGIQUES SONT BONNES 😉

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Février 2020

• #11

patricktoulon à dit:

re
le plantage est du au parent non précise quand tu utilise cells dans la codification du range

sheets("toto").range(cells(1,2),cells(4,7)) ---> PAS BIEN!!!!!

with sheets("toto"):.range(.cells(1,2),.cells(4,7)) .....:end with ----> BIEN!!!!!

Cliquez pour agrandir...

C'est un peu ce que j'avais supposé, d'où ma seconde forme pour ma ligne de commande (avec laquelle j'ai tout de même des plantages, me semble-t-il) où je précise la feuille d'appartenance de chaque Cells.
Et tu réponds ainsi de façon très claire à la question que je sous-entendais, et que je me posais depuis... des années !

Le reste de ton explication est une pure merveille ! Il faut que je garde ça sous le coude pour le relire e temps en temps.
Merci infiniment !!!

Dans mon problème posé ici, quand j'utilise Range(Cells(a,b),Cells(c,d)) mon but est en fait d'utiliser une zone (un range) dont un point est la cellule Cells(a,b) et le point opposé est la cellule Cells(c,d).
Autrement dit, si a=5, b=10, c=15, d=20, alors pour moi
Range(Cells(5,10),Cells(15,20))
devait être la même chose que
Range("J5:T15")

J'ai souvent été obligé d'ajouter le nom de la feuille devant les Cells dans mes Range, mais sans vraiment comprendre pourquoi... alors qu'en fait c'est plutôt logique (oui, je sais, c'est facile à dire une fois qu'on a une explication bien claire 😉).
Merci encore pour ta réponse !!! 😎

 

Dernière édition: 6 Février 2020

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Février 2020

• #12

Staple1600 à dit:

Re

Est-ce que tu as essayé ma macro illustrative au moins?
(Il suffit d'un classeur vierge avec deux feuilles
Et sur la feuille 1, tu saisis A1 en A puis tu recopies vers le bas jusqu'en A40 par exemple puis tu lances la macro
Observes alors ce qui se trouvera sur la feuille 2.
😉

Cliquez pour agrandir...

J'ai regardé ta macro et il m'a fallu pas mal de temps pour comprendre ce qu'elle faisait...

Je dois pouvoir utiliser ton idée du Resize (de 29, ou 30, ou 31 pour les colonnes) et la cumuler avec un Offset pour copier la bonne ligne et un autre offset pour coller dans la bonne ligne.
En espérant que ça ne ralentisse pas la macro. 😉

Merci pour ton aide.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Février 2020

• #13

re

Autrement dit, si a=5, b=10, c=15, d=20, alors pour moi
Range(Cells(5,10),Cells(15,20))
devait être la même chose que
Range("J5:T15")

Cliquez pour agrandir...

oui et non 😉😛
ca dépend en fait ,ca n'est valable uniquement sur sheets actif
oui je sais 😉le fait que VBA soit permissif en terme de syntaxe provoque en même temps incompréhension

comme je disais
sheets actif titi
sheets(toto").Range(Cells(5,10),Cells(15,20))PAS BON!!!!!!

Range(Cells(5,10),Cells(15,20)) oui sur sheets actif ça marche car vba attribut le même parent a "range" cells1,cells2

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Février 2020

• #14

Oui, quand je lis ce que tu écris, j'ai l'impression de comprendre.
Mais de là à ce que ça devienne une évidence et instinctif pour moi, il va falloir pas mal de temps je pense... 😉

Est-ce qu'il ne faudrait pas mettre .Address ou un .Value pour éviter tout litige ???
Dans mon cas ça donnerait ceci :
Sheets("Toto").Range(Cells(5,10).Address,Cells(15,20).Address)

Si c'est la feuille Titi qui est active,
Sheets("Toto").Range(Cells(5,10),Cells(15,20))
est-ce la même chose que
Sheets("Toto").Range(Sheets("Titi").Cells(5,10),Sheets("Titi").Cells(15,20))
ou encore
Sheets("Toto").Range(ActiveSheet.Cells(5,10),ActiveSheet.Cells(15,20))

Comme tu le vois, je ne pige pas encore très bien quand c'est l'adresse qui est utilisée et quand c'est le contenu de la cellule qui est utilisé... Désolé.

 

Dernière édition: 6 Février 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Février 2020

• #15

sheets("Toto").Range(Cells(5,10).address,Cells(15,20).address)

Cliquez pour agrandir...

😉 😛 😛 😛 😛
et non !!!!
la encore on a un soucis de syntaxe

soit tu l'exprime en string soit en object range
j'explique
un range s'exprime de 4 facon courantes et la méthode resize

les methode primaires
EN STRING
Range("A1:C10")

en argument cells object range/cells
Range(cells(1,1),cells(10,3))

en string ET !!! argument cells (la colonne exprimée en string )
Range(cells(1,"A"),cells(10,"C"))

sous forme Abrégé de evaluate
[A1:C10]

avec resize
cells(1,1).resize(10,3)

mais TOUJOURS : si .parent devant l'un alors .parent a tout les object constituant la formulation



perso quand je formule un range avec cells je le fait dans un with
exemple
with sheets("toto"):set ma plage= .range(.cells(1,1),.cells(10,3)):end with

et encore!!! tout ca n'est valable que pour un range contiguë

pour ce qui est de

Si c'est la feuille Titi qui est active,
sheets("Toto").Range(Cells(5,10),Cells(15,20))
est-ce la même chose que
Sheets("Toto").Range(Sheets("Titi").Cells(5,10),Sheets("Titi").Cells(15,20))
ou encore
Sheets("Toto").Range(ActiveSheet.Cells(5,10),ActiveSheet.Cells(15,20))

Cliquez pour agrandir...

oui c'est ca et ces 3 formulation ne sont pas bonnes

 

Dernière édition: 6 Février 2020

Vote positif 0 Vote négatif