Autres Problème VBA sur Excel 2007

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2020

• #2

Bonjour Co_Lac,
Pour cela il ne faut coller que les valeurs, vous conserverez ainsi votre format d'origine.
Essayez de remplacer votre ligne en gras par :

VB:

    Sheets("Donnees bourse").Range("G4:G27").Copy
    Sheets("Base").Cells(90, Index).PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 2 Mai 2020

• #3

Merci pour ta réponse !
ça marche !
Bonne journée

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mai 2020

• #4

bonjour il faudra m'expliquer pourquoi utiliser "Paste"et toute son armada si c'est pour ne récupérer le .value

VB:

Sheets("Base").Cells(90, Index).resize(,[G4:g27].columns.count).value= Sheets("Donnees bourse").Range("G4:G27").value

épicétoo'
😉

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 2 Mai 2020

• #5

Merci beaucoup,
Effectivement ça marche plus vite !
J'aime bien cette dernière version, le paste et son armada alourdi la macro, j'ai 25 colonne à réactualiser!
Bonne fin de journée
Et merci pour votre aide

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 2 Mai 2020

• #6

J'ai une autre question svp
Mon fichier est de plus en plus long au niveau sauvegarde ?
Je me pose des questions!
D’où est ce que ça pourrait venir ?
Il fait 251 ko
Est ce normal ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mai 2020

• #7

re oui c'est un problème récurrent avec 2007 il a toujours mal géré le cache fichier

transfert tout sur un fichier vierge pour remettre d'aplomb

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mai 2020

• #8

Bonjour le fil, Co_Lac, sylvanu, patricktoulon

•>patricktoulon

tu à dit:

bonjour il faudra m'expliquer pourquoi utiliser "Paste"et toute son armada si c'est pour ne récupérer le .value

Enrichi (BBcode):

Sheets("Base").Cells(90, Index).resize(,[G4:g27].columns.count).value= Sheets("Donnees bourse").Range("G4:G27").value

épicétoo'
😉

Cliquez pour agrandir...

Si je n'abuse que ce soit en Bretagne ou à Valparaiso.
Que l'on soit confiné ou pas
[G4:g27].columns.count
donnera toujours 1
Alors pourquoi ne pas mettre 1
?
NB [Xi:Xj].Columns.Count donne toujours 1 quand X=X non ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mai 2020

• #9

bonjour Staple1600
oui c'est vrai en fait logiquement c'est le row que l'on devrait resizer
resize([g4:g27].rows.count,1)
normalement mais il en est satisfait j'en conclu que tout ce ramdam c'est pour copier une seule cellule

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 2 Mai 2020

• #10

non non plusieurs cellules !
Mais ça marche!
une autre question comment fait on pour transférer toutes les données dans un fichier vierge?
question pour vous basique mais j'ai peur de faire des bétises!
Merci

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 4 Mai 2020

• #11

Bonjour,
J'ai encore une autre question svp !
Je veux faire un rangement sur une ligne avec en "A123" par exemple le ou les premiers des participants , (dans ce cas incrémenter les cellules, "B123", "C123" etc.... ) ensuite le ou les deuxièmes "D123", "E123", troisième etc....
Sur une ligne, comme dans mon exemple "A121:Z121" j'ai une série de valeurs qui sont des notes numériques.
La ligne au dessus, "A120:Z120" j'ai le nom des participants.
Le but de ma question c'est en VBA, rechercher l'adresse de la cellule qui correspond à par exemple la note de 45?
Réponse par exemple: "L121"
J'ai cherché sur google mais rien ne correspond ou ne marche pas, donc je frappe à votre porte !
Merci
Claude

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 5 Mai 2020

• #12

patricktoulon à dit:

bonjour Staple1600
oui c'est vrai en fait logiquement c'est le row que l'on devrait resizer
resize([g4:g27].rows.count,1)
normalement mais il en est satisfait j'en conclu que tout ce ramdam c'est pour copier une seule cellule

Cliquez pour agrandir...

Bonjour,
Je viens de m'apercevoir, en apportant vos modifications; "resize([g4:g27].rows.count,1)" à la ligne de patricktoulon; "Sheets("Base").Cells(90, Index).resize(,[G4:g27].columns.count).value= Sheets("Donnees bourse").Range("G4:G27").value" ça ne marche pas, ça plante!
j'ai écris:
"Sheets("Base").Cells(90, Index).resize(,[G4:g27].rows.count,1).value= Sheets("Donnees bourse").Range("G4:G27").value"
Erreur d’exécution: "450"
Nombre d'argument incorrect ou affectation de propriété incorrecte
J'ai cherché des solutions mais je ne trouve pas !
Je vous remercie de me dire svp
Merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Mai 2020

• #13

bonjour
"Sheets("Base").Cells(90, Index).resize(,[G4:g27].rows.count,1).value= Sheets("Donnees bourse").Range("G4:G27").value"

Allo!!!!!docteur pourquoi j'ai mal 😉

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 5 Mai 2020

• #14

Je n'ai pas vu la virgule en rouge!
Je viens de faire la modif ça marche!
Impeccable!
Merci

 

Vote positif 0 Vote négatif

Co_Lac

XLDnaute Junior

• 5 Mai 2020

• #15

Bonjour,
Je viens de m'apercevoir, en apportant vos modifications; "resize([g4:g27].rows.count,1)" à la ligne de patricktoulon; "Sheets("Base").Cells(90, Index).resize(,[G4:g27].columns.count).value= Sheets("Donnees bourse").Range("G4:G27").value" ça ne marche pas, ça plante!
j'ai écris:
"Sheets("Base").Cells(90, Index).resize(,[G4:g27].rows.count,1).value= Sheets("Donnees bourse").Range("G4:G27").value"
Erreur d’exécution: "450"
Nombre d'argument incorrect ou affectation de propriété incorrecte
J'ai cherché des solutions mais je ne trouve pas !
Je vous remercie de me dire svp
Merci

fanch55 à dit:

c'est vrai, le premier qui fait poster a gagné .
j'aurai du supprimer le mien.
dont acte .
ce message s'autodétruira dans 5 secondes ...

Cliquez pour agrandir...

J'ai une autre question svp:
Sur ma feuille "Base":
j'ai une ligne de A120 à Z120 = participants (nom de Sociétés)
J'ai une ligne de A121 à Z121 = notes attribuées (suivant critères)
Je veux si c'est possible et pas trop complexe, recopier ces 2 lignes sur une feuille "Classement" en "A1 à Z1" et "A2 à Z2" par exemple en les réordonnant en ordre décroissant.
Comment faire une recherche sur la ligne A121 à Z121 de la note, 50 à 0 et récupérer l'adresse de la cellule ligne au dessus correspondante puis d'une seconde note (identique à la première) si ex aequo il y a et les ranger depuis "A1 à "Z" de la feuille "Classement" en ordre décroissant ?
Et ensuite faire une boucle de la note 50 à 0 par exemple?
J'ai cherché sur google mais rien ne correspond ou ne marche pas, donc je frappe à votre porte !
Excusez moi mais je débute en VBA, c'est trés prenant, ça occupe par les temps qui court!
Merci
Claude

 

Pièces jointes

• rangement.PNG

  15.8 KB · Affichages: 18

Vote positif 0 Vote négatif