XL 2013 comment tranferré de un coté a l autre voir fichier merci d avance en macro

[lucetudie]

Z1	3	3	2	2	2	2	2	2	2	2	2	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0
A1	1	2	3	4	5	6	7	8	9	10	11	3	24	22	50	11	43	27	34	5	9	31	13	57	66	65	48	41	58	7	10	56	6	19	47	40	51	37	14	45	53	42	38	1
A3	1	2
A2	3	4	5	6	7	8	9	10	11
A1	3	24	22	50	11	43	27	34	5	9	31	13	57	66	65	48	41	58	7	10
A0	56	6	19	47	40	51	37	14	45	53	42	38	1

 

[Compte Supprimé 979]

BONJOUR

Lorsque vous commencez un fil de discussion et que vous posez une question sur le forum, il est de bon ton d'utiliser les formules de politesse usuelles.

Dites systématiquement "Bonjour" avant de poser vos questions car ici on se comporte comme dans la vrai vie.

Vous pouvez aussi conclure vos messages par un "Merci d'avance", ou "Bonne journée", cela ne sera pas de trop .

Une fois que vous aurez commencé à interagir au sein d'un fil existant vous pourrez faire preuve de moins de formalisme.

Merci d'en prendre bonne note afin que ce forum reste accueillant et convivial!

Profitez en pour relire la charte.

Bonne journée

 

[sylvanu]

Bonjour lucetudie, Bruno,
Bien que d'accord avec Bruno, je considère qu'il ne devrait pas être utile de lire notre charte sur ce point pour avoir l'élémentaire politesse de dire Bonjour en entrant sur un fil.

En PJ un essai avec ces macros.

Sub Test()
    [C15:BT100].ClearContents                                   ' Effacement feuille
    Valeur = Array(3, 2, 1, 0)                                  ' Tableau des valeurs à détecter
    Ligne = Array(15, 19, 23, 27)                               ' Tableau des lignes à remplir
    For i = 0 To UBound(Valeur)                                 ' Remplissage des lignes
        Remplit [C5:BT6].Offset(0, 0), Range("C" & Ligne(i) + 0 & ":BT" & Ligne(i) + 0), Valeur(i)
        Remplit [C5:BT6].Offset(3, 0), Range("C" & Ligne(i) + 1 & ":BT" & Ligne(i) + 1), Valeur(i)
        Remplit [C5:BT6].Offset(6, 0), Range("C" & Ligne(i) + 2 & ":BT" & Ligne(i) + 2), Valeur(i)
    Next i
End Sub
Private Sub Remplit(PlageEntrée, PlageSortie, Nombre)
    T = PlageEntrée: T2 = PlageSortie: C = 1                    ' Données d'entrées
    For i = 1 To UBound(T, 2)                                   ' Pour toutes les colonnes
        If T(1, i) = Nombre Then T2(1, C) = T(2, i): C = C + 1  ' On retient ou on rejette la valeur
    Next i
    PlageSortie.Resize(1, UBound(T2, 2)) = T2                   ' On restitue le tableau en cellules
End Sub

Si j'ai bien compris la problématiques, alors les résultats que vous donnez dans votre PJ sont faux. juste un exemple, en B17 on devrait avoir 30 puisqu'il y a 3 en C11 et un 30 en C12.

 

[lucetudie]

BONJOUR

Lorsque vous commencez un fil de discussion et que vous posez une question sur le forum, il est de bon ton d'utiliser les formules de politesse usuelles.

Dites systématiquement "Bonjour" avant de poser vos questions car ici on se comporte comme dans la vrai vie.

Vous pouvez aussi conclure vos messages par un "Merci d'avance", ou "Bonne journée", cela ne sera pas de trop .

Une fois que vous aurez commencé à interagir au sein d'un fil existant vous pourrez faire preuve de moins de formalisme.

Merci d'en prendre bonne note afin que ce forum reste accueillant et convivial!

Profitez en pour relire la charte.

Bonne journée

bonjour desolé jais du faire plusieur foi et il cest enlever le bonjour ce la premiére foi que je viens

 

[sylvanu]

Re,
Prenez aussi l'habitude de répondre aux contributeurs.
Ma solution vous convient elle ?
Votre PJ initiale est elle correcte ou incomplète dans son attendu ?

 

[lucetudie]

Re,
Prenez aussi l'habitude de répondre aux contributeurs.
Ma solution vous convient elle ?
Votre PJ initiale est elle correcte ou incomplète dans son attendu ?

bonjour j ais regardais et elle vas bien jais esaiyer avec 6 rangée en ajoutent pour voir si je ces ajoir les deux colonne merci sa ma fait tres plaisir bonne week bàt luc

 

[lucetudie]

salut comment on dois faire pour repondre aux contributeurs

 

[lucetudie]

salut ces doublé voici original passer une bonne journée

 

[sylvanu]

Bonjour,

comment on dois faire pour repondre aux contributeurs

Un contributeur est quelqu'un qui vous réponds, tout simplement.
par ex, lorsque je demande :

Si j'ai bien compris la problématiques, alors les résultats que vous donnez dans votre PJ sont faux. juste un exemple, en B17 on devrait avoir 30 puisqu'il y a 3 en C11 et un 30 en C12.

Je n'ai aucune réponse, donc je ne sais pas si ma proposition est correcte ou si c'est votre PJ qui l'est.

Autre point dans votre dernière PJ, vous avez 5 lignes à analyser mais seulement 8 plages à remplir. Je ne comprends pas.
Ensuite vous parlez toujours des lignes 5,8,11 donc à quoi servent les lignes 17 et 20 ?
Et vous parlez des lignes 15 à 29 alors que votre exemple ça va de 32 à 62.

Donc ne comprenant rien, je jette l'éponge.
Peut être que quelqu'un de plus perspicace pourra vous aider.

 

[lucetudie]

salut ta formule marche bien jais fait teste 1 et 2 pour mes 6 ligne
nonne semaine