de l'aide merci

[patrick wargnier]

Bonsoir a tous voila mon probleme je voudrai une formule qui recopie vers le bas je vous joint un fichier merci d'avance !

 

[Philippe68]

Re : de l'aide merci

Bonsoir,
une formule qui recopie quoi vers le bas ?

 

[patrick wargnier]

Re : de l'aide merci

donc voila je voudrai que la formule qui ce trouve en V1 ce recopie dans la cellule V2 et ca doit me marquer =CONCATENER($A2;$B2;$C2;E$2)

 

[fanfan38]

Re : de l'aide merci

Bonjour
Comme tu as mis, il sera recopié =CONCATENER($A2;$B2;$C2;E$1) pour E2 il faut que le dollar soit avant le E...
Ensuite un copié/collé fera l'affaire... Tu ne peux pas le faire par formule (tout au moins pas à ma connaissance)...à la rigueur une macro...

A+ François

 

[Tibo]

Re : de l'aide merci

Bonjour,

Pas du tout certain d'avoir compris. Une tentative avec ceci en U1 :

=CONCATENER($A1;$B1;$C1;INDIRECT(CAR(67+COLONNES($A:A))&LIGNE()))

ou :

=CONCATENER($A1;$B1;$C1;INDIRECT(ADRESSE(LIGNE();COLONNES($A:D))))

ou :

=CONCATENER($A1;$B1;$C1;DECALER($C1;;COLONNES($A:A)))

à recopier vers la droite et vers le bas

@+

 

[Misange]

Re : de l'aide merci

Bonjour
tu as mis en V1
=CONCATENER($A1;$B1;$C1;E$1)
Si tu mets
=CONCATENER($A1;$B1;$C1;$E1)
et que tu tires vers le bas tu auras bien
=CONCATENER($A2;$B2;$C2;$E2) en V2
Maintenant si tu veux autre chose il faut être plus précis car visiblement pas grand monde n'est sur de l'interprétation de ta demande

 

[patrick wargnier]

Re : de l'aide merci

Bonjour merci de votre réponse mais ce n'ai pas ca que je voulais donc je vais m'expliquer autrement ,
dans la ligne 1 de A1 a T1 il y a 20 chiffres donc quand ont calcule le nombre de combinaison différente que l'ont peus faire en tout en forment 4 chiffres = 4845 combinaisons differentes , donc je voudrai dans la meme ligne 1 qu'il me concatener toute les combinaisons a 4 chiffres car je ferai ca aussi sur plusieurs lignes donc quand la premiere ligne sera fini je voudrai le recopier vers le bas sur plusieurs lignes merci d'avance pour votre résultat !

 

[patrick wargnier]

Re : de l'aide merci

Rebonsoir alor vous avez trouvez une solution a mon probleme merci de me répondre !

 

[Misange]

Re : de l'aide merci

Eh oh ! on se calme !!! on est dimanche, les bénévoles qui passent du temps à essayer d'aider les autres ont aussi le droit de se balader, de se faire un thé, de prendre l'apéro... Bref de faire autre chose. Tu poses ta question de telle façon que personne ne risquait de comprendre ce que tu voulais. Tu donnes une première précision complètement insuffisante. Ce n'est qu'au 3° coup que tu donnes des détails et il faut que ça saute pour la réponse ?
Là pour moi c'est l'heure de commencer à préparer le diner... (il faut que ça mijote un peu le boeuf carotte)

 

[patrick wargnier]

Re : de l'aide merci

excusez moi pour tout ! j'attendrai calmement une réponse a mon probléme et bon dimanche a tous !

 

[KenDev]

Re : de l'aide merci

Bonsoir à tous,

Rebonsoir alor vous avez trouvez une solution a mon probleme merci de me répondre !

On a tout de suite envie de te faire plaisir...

Bref... Tu peux oublier je pense l'aimable formulette à tirer vers le bas.

Une macro à lancer depuis la feuille contenant les lignes de 20 n° à concatener sur les 4845 colonnes suivantes (d'où le xlsm)... Mon netbook met a vue de nez une 30aine de secondes par lignes.... Fichier joint.

Option Explicit
    
Sub K20_4()
    Dim w(1 To 2) As Worksheet, i&, Nbcb&, Rw&, Tb%(1 To 20), j&, k%
    Application.ScreenUpdating = False
    Nbcb = WorksheetFunction.Combin(20, 4)
    Set w(1) = ActiveSheet
    Sheets.Add
    Set w(2) = ActiveSheet
    For i = 1 To 4
        w(2).Cells(1, i) = i
    Next i
    w(2).Cells(2, 1).FormulaR1C1 = "=IF(R[-1]C[1]=18,R[-1]C+1,R[-1]C)"
    w(2).Cells(2, 2).FormulaR1C1 = "=IF(R[-1]C[1]=19,IF(R[-1]C=18,RC[-1]+1,R[-1]C+1),R[-1]C)"
    w(2).Cells(2, 3).FormulaR1C1 = "=IF(R[-1]C[1]=20,IF(R[-1]C=19,RC[-1]+1,R[-1]C+1),R[-1]C)"
    w(2).Cells(2, 4).FormulaR1C1 = "=IF(R[-1]C=20,RC[-1]+1,R[-1]C+1)"
    w(2).Range(w(2).Cells(2, 1), w(2).Cells(2, 4)).AutoFill Destination:=w(2).Range(w(2).Cells(2, 1), w(2).Cells(Nbcb, 4))
    Rw = w(1).Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Rw
        For j = 1 To 20
            Tb(j) = w(1).Cells(i, j)
        Next j
        For j = 1 To Nbcb
            For k = 1 To 4
                w(1).Cells(i, 20 + j) = w(1).Cells(i, 20 + j) & Tb(w(2).Cells(j, k))
            Next k
        Next j
    Next i
    Application.DisplayAlerts = False
    w(2).Delete
    Application.DisplayAlerts = True
    w(1).Columns.AutoFit
    Application.ScreenUpdating = True
End Sub

Cordialement

KD

Edit : nommer la sub comme une cellule, n'était pas une bonne idée... Corrigé.

 

[Philippe68]

Re : de l'aide merci

Bonsoir,



Edit : c'est bon pour le téléchargement de l'usine à gaz

 

[patrick wargnier]

Re : de l'aide merci

Rebonsoir merci pour la reponse pour Kendev , je fait comment pour le mettre en application la formule j'ai essayer mais ca ne marche pas merci de me re éclairer a nouveau !

 

[KenDev]

Re : de l'aide merci

Rebonsoir,

Ce n'est pas une formule c'est une macro. Se positionner sur la feuille contenant les lignes de 20 n° puis :
Développeur - Macros - K20_4 - Executer.

Cordialement

KD

 

[patrick wargnier]

Re : de l'aide merci

Rebonsoir donc voila j'ai essayer mais je ni arrive pas je ni connais rien du tout en macro c'est la premiere fois que je met le nez dedans merci de m'aider a nouveau !