Extraction base de donnée

[Caninge]

Bonjour

Je viens de récupérer une macro d'un autre fichier pour l'adapter sur celui-ci.

Mais elle bugue bien entendu.

Dans la feuille "aa" si j'écris dans n'importe quelles cellules de B2 à O2,
Comment récupérer touts les données de la feuille "Recap".

Exemple je tape
Bourges 2008 Partie 1
Dans la feuille "aa" j'ai les 3 lignes du tournoi de Bourges.

Voilà merci de bien vouloir m'aider.

 

[Excel-lent]

Re : Extraction base de donnée

Bonjour Caninge,

Il y a au moins deux erreurs dans ton code!

Voici la première :
Remplacer :

    If Application.WorksheetFunction.CountA([COLOR="Blue"]Rng.Offset(1, 0)[/COLOR]) > 0 Then

par :

    If Application.WorksheetFunction.CountA([COLOR="Blue"]Rng[/COLOR]) > 0 Then

Sur ton onglet "aa" il serait peut-être sympa de :
-> colorier la zone [B2:O2]
-> écrire en [A2] au moins : filtre
-> recopier sur la ligne 1, les titres de colonne de la feuille "récap"

Ainsi l'utilisateur si retrouvera mieux! 😉

Faut que j'y aille, pour tes autres bugs, je regarderais ce soir si personne n'a trouvé d'ici là.

Bonne journée

 

[Cousinhub]

Re : Extraction base de donnée

Bonjour,

J'ai un peu modifié ton fichier (j'ai supprimé la ligne avec les flèches.....)

dans la feuille aa, cellule A3, sélectionne le tournoi que tu veux, les données se mettent dans le tableau...

 

[Caninge]

Re : Extraction base de donnée

bonjour à tous,


Ce soir je regarde vos propositions.

Je vais en courses.

A plus

 

[Caninge]

Re : Extraction base de donnée

Bonjour à tous,

Excusez-moi je devais donner une réponse hier soir, je n'ai pas pu.

La proposition de bhbh me plait bien.

serait-il possible de changer la mise en page.

Merci

a plus

 

[Cousinhub]

Re : Extraction base de donnée

Bonsoir,

Je pense, qu'avec plus de 400 posts, tu dois connaître le code :

Outils/Macros/Nouvelle Macro.......

Ou tu veux du tout fait????????

(pas trop le style du forum, solution qui n'apporte rien, d'une part, et qui ne te fera certainement pas progresser.......)

Amicalement

 

[Caninge]

Re : Extraction base de donnée

Bonjour Bhbh,

Oui je connais cela mais c'est la suite.................

j'ai fais l'effort de modifier,je ne déconne pas.

Bon, je vais essayé.

Merci et bonne journée bhbh.

 

[Caninge]

Re : Extraction base de donnée

Bonsoir à tous,

Je reprends le fichier, j'ai modifié comme bhbh me l'avait conseillé.
Je me suis arrêté après mettre aperçu que dans les colonne F J et O les données étaient semblables.

Merci pour votre aide.

 

[Cousinhub]

Re : Extraction base de donnée

Bonsoir,

effectivement, elles ont les mêmes valeurs, car les en-têtes sont identiques (ainsi que les colonnes I et N)

Pour éviter cela, mets un en-tête différent à chaque colonne...

regarde le fichier joint..

PS, j'ai également modifié la zone nommée "Partie", qui ne prenait pas en compte la dernière partie...

Bonne soirée

 

[Caninge]

Re : Extraction base de donnée

Bonjour,

merci de m'avoir répondu:

Après avoir effectué les changements, j'ai mis la cellule de validation en A12.
Egalement j'ai rajouté à la fin de la procédure des lignes pour calculer des sommes.
Peux-tu me dire si cela est corrrect ? (de toute façon ça marche)

merci


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Address = "$A$12" Then
Application.ScreenUpdating = False
x = InStr(1, [A12], "Partie", 1) - 2
With Sheets("Recap")
derlig = .[B65000].End(xlUp).Row
.Range("B5:O" & derlig).Name = "base"
End With
If x > 0 Then
Range("A2").FormulaR1C1 = "=LEFT(R12C1,12)=LEFT(Recap!R[4]C[1],12)"
Else
Range("A2").FormulaR1C1 = "=R12C1=Recap!R[4]C[1]"
End If
Sheets("Recap").Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B1:O1")
[A2].ClearContents


Range("D12").FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
Range("E12").FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
Range("G12").FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
Range("H12").FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
Range("M12").FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
Range("F12").FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)"
Range("I12").FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)"
Range("J12").FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)"
Range("K12").FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)"
Range("L12").FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)"
Range("N12").FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)"
Range("O12").FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)"

End If
End If
[A3].Select

End Sub