Report et positionnement de cellules d'une feuille à l'autre

Bonjour à tous,

Pour éviter la saisie de milliers de formules, je cherche une formule qui pourrait fonctionner par simple copie.

Ci joint un exemple de feuille à créer.

https://www.excel-pratique.com/~files/doc2/Classeur12.xls

Bonne journée à tous

Annette

bonjour annette

je ne vois pas très bien quelle formule tu veux créer et pour quelle utilisation dans ton fichier pourrais-tu être plus explicite.

Cordialement

Mathieu

Salut annette,

Regarde dans le fichier joint et dis-moi si c'est ce que tu voulais : Fichier

Re Bonjour,

A la lecture de la réponse, elle résous déjà à 95 % de ma demande (c'est déjà formidable)

Il le restera de copier est de modifier la cellule de base .(Qui correspond au nom)

Merci encore à toi VBA-NEW

Annette

re-,

Quand tu dis que la cellule de base correspond au nom et qu'il faut la changer, tu parle des noms des joueurs qui se trouvent sur la feuille "Edition"?

Parce que là ça change tout! En effet étant donné que la fonction RECHERCHEV que je t'ai donnée fait référence à la cellule du nom de joueur, va falloir que je réfléchisse un peu plus !

Je te dis si ya du nouveau

Merci VBA NEW

En effet pour les deux premières grilles les adresses viennent d'un rechercheV.

Pour les (deux) autres les adresses (qui suivent) elles sont déduites des deux adresses précédentes lors du cope / coller de la formume

Bon courage

Annette

re, annette,

Peux-tu me dire exactement quelles cellules sont à modifier? Je ne comprends plus très bien là. Et quand tu parles d'adresses, ce sont les noms?

Re

Vba-New

Ci joint fichier

https://www.excel-pratique.com/~files/doc2/Classeur13.zip

Annette

Salut annette,

Je n'arrive pas à trouver de fonction excel pour répondre à ta demande.

J'ai donc créé un petit programme en VBA qui pourrait te convenir:

Sub nom_joueur()
cpt = 2
    For i = 2 To 65536
    If IsEmpty(Sheets("Récapitulatif").Cells(cpt, 5)) = False Then
    Cells(i, 2) = Sheets("Récapitulatif").Cells(cpt, 5)
    cpt = cpt + 1
    Cells(i, 13) = Sheets("Récapitulatif").Cells(cpt, 5)
    cpt = cpt + 1
    Cells(2, 2).Copy
    i = i + 14
    Cells(i + 1, 2).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Cells(i + 1, 13).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Else
    GoTo Saute
    End If
Saute: Next i
End Sub

Le code n'est peut-être pas optimisé mais il fonctionne!

Dis moi si ya un problème

bonsoir à tous

Bravo, bravo, bravo

Je n'ai plu qu'a m'inspirer de ce code pour compléter ma feuille édition.

Merci et à bientôt

Annette