Discussion :

[kiss6]

Bonjour a toute la communauté

Voila je vient vous embêtez car je ne trouve pas ce dont j'ais besoin sur le net et sur les forums

j'ais une feuille nommé PRONO que je récupère sur le net et qui ce compose de plusieurs tables de plusieurs réunions et courses et qui change tous les jours

sur une autre feuille ex:"feuil2" je récupère des données de la feuille PRONO mais le souci est que la feuille PRONO change tous les jours mes formule

en "feuil2" ce mettent en#REF EX: =NB(PRONO!E287:E298) le lendemain lorsque je charge la page récupéré sur le web il me faut tout retaper manuellement

pourriez-vous me trouvé une solution j'ais besoin de votre aide a celui qui me répondra je le remercie d'avance

si toute fois vous voulez plus d'explication ou si vous voulez un fichier essai je me ferais un plaisir de vous les communiquer

cordialement kiss6

[BENNASR]

Bonjour KISS6, la forum
Je pars de la principe que tu importe toutes les données de la colonne E de la feuille PRONO vers la colonne E de la feuille "FEUIL2" et en bas de cette dernière colonne E tu cherches à compter le nombre des valeur dans ce cas :
la longueur de la colonne E de la feuille PRONO et de la feuille FEUIL2 sont identique et tu peux faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub calculer()
Dim i As Long
With Sheets("PRONO")
i = .Range("E" & Rows.Count).End(xlUp).Row
Sheets("Feuil2").Range("E" & i).Value = WorksheetFunction.Count(.Range("E1:E" & i))
End With
End Sub

Si c'est pas ce que tu cherches merci de donner plus d'explication
BONNE JOURNEE

[kiss6]

Merci BENNASR

De vous pencher sur mon sujet

j'ais essayé votre code mais rien ne ce passe, moi j'ais trouvé ce code sur le net mais le problème c'est

que c'la me met en feuil2 toute les colonnes de la feuil "PRONO" voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub lancer()
Dim size As Integer
Dim psize As Integer
Dim isize As Integer
Dim colsize As Integer
 
 Sheets("Feuil2").Activate
 Range("B1:E1500").Select
 
 Selection.Delete
 Sheets("PRONO").Activate
 Range("B1:E1500", "B" & Range("B1").End(xlDown).Row).Select
Selection.Copy Destination:=Sheets("Feuil2").Range("B1")
Range("A1").Select
 Sheets("Feuil2").Activate
Range("A1").Select
 
 
End Sub

si vous voulez que je vous envois un fichier test je vous le ferez parvenir

Cordialement

kiss6

[Marc-L]

Bonjour,

à quoi sert la ligne de code n° …   Ah zut !  Le code n'a pas été balisé (cf règles de ce forum).

Voir aussi dans l'aide VBA interne les propriétés   CurrentRegion   et   UsedRange   …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[BENNASR]

Bonsoir
En respect aux règles de ce forum il est déconseillé de joindre des fichiers pour ce la tu peux présenter ton problématique avec un exemple et des captures écrans si c'est nécessaire mais s'il est inévitable de joindre un fichiers faite au format sans macro

[kiss6]

Bonsoir BENNASR

Excuser moi pour la réponse tardif mais je suis rentré il y a pas longtemps

peut-être me suis je mal exprimer je vais essayer de vous expliquer plus clairement

comme je vous est déjà dit j'ais une feuille nommé "PRONO" que je vais chercher sur le net et qui est

constituer de plusieurs tableau pour chaque réunion et course
"EXEMPLE"
Course: R.2-C.1 Hippodrome: PAU Allocation: 32000 € Discipline: HAIES Spécialité: CONDITIONS Date: 06/02/2018
Distance: 3500 m Terrain: PSF Partants: 8 Piste: GAZON Corde: CORDE A DROITE Température: 6 Sens vent: SO Force vent: 5 Clarté: LE SOLEIL L'EMPORTERA ET LES NUAGES RESTERONT DISCRETS.
Horaire: 12H25
R2-C1 - Simple Gagnant - Simple Placé - Super Simple - Jumelé Gagnant - Jumelé Placé - Jumelé odre - Trio

N°	Fav	Ml0	Ml3
3	88-FAV-0,1	3,3	3,3
1	88-FAV-0,1	3,6	3,6
2	88-FAV-0,1	6,5	6,6
4	88-FAV-0,1	7,2	6,8
8	16-DAN-5,2	10,6	10,8
5	16-DAN-5,2	14,8	14,8
6	13-OUT-6,6	14,9	15
7	13-OUT-6,6	15,8	15,6

Course: R.1-C.1 Hippodrome: CAGNES-SUR-MER Allocation: 28000 € Discipline: ATTELE Date: 06/02/2018
Distance: 2925 m Terrain: Partants: 7 Piste: POUZZOLANE Corde: CORDE A GAUCHE Catégorie: COURSE B Température: 11 Sens vent: NE Force vent: 14 Clarté: LES NUAGES L'EMPORTERONT ET LES ÉCLAIRCIES RESTRONT RARES.
Horaire: 12H40
R1-C1 - Simple Gagnant - Simple Placé - Jumelé Placé - Trio

N°	Fav	Ml0	Ml3
6	95-FAV-0,1	2,3	2,3
7	95-FAV-0,1	4,5	4,2
4	95-FAV-0,1	6,2	6,2
5	95-FAV-0,1	8,5	8,9
3	15-DAN-5,6	11,7	12,4
2	15-DAN-5,6	13,5	14,3
1	6-OUT-14,5	14,6	15,5

et en feuil2 j'ais un tableau qui vas de "A15 a I24"

avec la première colonne en A14 "NBP" en B14 "COTES" en C14 "N° Favori"

le problème est que mes formule qui ce trouve dans la feuil2 en A15 " =NB(PRONO!E287:E298) " et B15 " =SI($A$15>1;PETITE.VALEUR(PRONO!E287:E298;4);"") " et C15

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(B15<>"";INDEX(PRONO!B287:B298;EQUIV(B15;PRONO!E287:E298;0));"")

lorsque tous les jours je charge la page web toute mes formules ou il y a EX: PRONO!E287:E298 elles sont comme ceci PRONO!#REF ce qui fais que je suis toujours obligé de les retaper

j'espère avoir été clair sinon laisser tombé je creuserais un peut plus avec Google

J'allais oublier les formule sont en colonne "E" car la page web que je charge ce positionne en "B"

en tout cas merci de votre dévouement

cordialement kiss6

[Menhir]

j'ais une feuille nommé PRONO que je récupère sur le net et qui ce compose de plusieurs tables de plusieurs réunions et courses et qui change tous les jours

sur une autre feuille ex:"feuil2" je récupère des données de la feuille PRONO mais le souci est que la feuille PRONO change tous les jours mes formule en "feuil2" ce mettent en#REF EX: =NB(PRONO!E287:E298) le lendemain lorsque je charge la page récupéré sur le web il me faut tout retaper manuellement

En gros, tu veux qu'on te dise comment localiser une donnée dont tu ne dis rien sinon qu'elle n'est jamais au même endroit ?
Promis, dès que ma boule de cristal est réparée, j'essaye de trouver une solution.