XL 2021 COPIER valeur d'une cellule pour constituer un tableau de résultats

[matlatarte]

Bonjour,

je souhaite copier la valeur d'une cellule A1 par exemple dans B1 au clic. Jusque là pas de souci.
Je souhaite maintenant copier de nouveau A1 (qui a peut être évolué) en B2 car B1 déjà rempli; puis B3 etc...
Si toutes les cellules B sont vides alors remplir de nouveau A1 ect...

Enfin, dès que 3 valeurs de la ligne B sont identiques alors renvoyer cette valeur dans une cellule.

Je sèche ! Si vous avez des idées je suis preneur!
Cordialement

 

[sylvanu]

Bonjour,
Un petit fichier test serait le bienvenu pour mieux de compréhension.

au clic

Quel clic, sur quelle cellule ?

alors renvoyer cette valeur dans une cellule.

Quelle cellule ?

 

[matlatarte]

effectivement je me suis emmêlé dans les lignes / colonnes

ci joint un petit fichier pour éclaircir les choses....

 

[sylvanu]

D'après ce que j'ai compris :

Sub ZoneTexte1_Cliquer()
Dim Col%
Col = 2 + Application.CountIf([B8:N8], "<>")        ' Colonne où écrire
Cells(8, Col) = [A1]                                ' Duplique A1 en ligne 8
If Application.CountIf([B8:N8], [A1]) >= 3 Then     ' Si 3 fois valeur de A1 en B8:N8
    [B16:N16] = [B8:N8].Value                       ' On recopie B8:N8 en B16:N16
End If
End Sub

Pourquoi dans votre PJ il y a des 15 en A8 et A16 ?
Dans la PJ je commence de la colonne B à la colonne N.

 

[matlatarte]

COOL merci c'est presque ça ! pour la suite c'est ok

il me faudrait juste que dès qu'il y a 3 valeurs identiques (pas forcément A1) en ligne 8 alors remplir E19 avec cette valeur

merci !

 

[sylvanu]

Sub ZoneTexte1_Cliquer()
Dim Col%
Col = 2 + Application.CountIf([B8:N8], "<>")        ' Colonne où écrire
Cells(8, Col) = [A1]                                ' Duplique A1 en ligne 8
If Application.CountIf([B8:N8], [A1]) >= 3 Then     ' Si 3 fois valeur de A1 en B8:N8
    [B16:N16] = [B8:N8].Value                       ' On recopie B8:N8 en B16:N16
    [E19] = [A1]                                    ' Recopie de A1 dans E19
End If
End Sub

 

[matlatarte]

je cherche
si 3 valeurs identiques en b8:N8 (mais pas forcement identique à A1...)
alors [E19] = [A1]

 

[sylvanu]

Je ne vous suis pas.
On copie B16:N16 les valeurs de B8:N8 si on trouve 3 valeurs identiques à A1.
Donc en E19 on aura cette valeur.
Et comme si A1 change les copies ne s'effectuent pas alors en E19 on aura toujours la même valeur.
Donc je jette l'éponge, je ne comprends pas, mais surement que quelqu'un de plus futé passera par là.

 

[matlatarte]

effectivement on ne se comprend pas je souhaite juste que si dans une ligne il y a :
2 4 5 9 7 4 7 6 98 7 Alors E19= 7 (car 3 fois 7 dans la ligne)

 

[sylvanu]

C'est pourtant clair. Ce qui déclenche la copie c'est quand dans E8:N8 on a trois fois la même valeur.
Et comme cela se passe sur le clic, à ce moment ce triplé est égal à A1. Donc la copie dans B16:N16 reflète B8:N8 et donc ce nombre en A1 est bien ce qui a déclenché la macro.

 

[matlatarte]

effectivement je suis fatigué ! lors du transfert dans le classeur une erreur s'était glissée... merci ! je vais magouiller tout ca !

 

[matlatarte]

Bon dimanche !

j'abuse un peu ! j'aimerai rajouter une condition ! 3 fois la même valeur en ligne 8 mais QUE avec la valeur "oui" correspondante en ligne 9 sinon RIEN. Ci joint le fichier Excel modifié pour illustrer. Possible ?

Cordialement

 

[sylvanu]

Bonjour,
En ajoutant pour décider si copie ou non :

Sub Copie()
Dim A1%, C%, N%
A1 = Range("A1")
For C = 2 To 14
    If Cells(8, C) = A1 And Cells(9, C) = "OUI" Then N = N + 1
Next C
If N >= 3 Then [B16:N16] = [B8:N8].Value
End Sub

 

[matlatarte]

YES IMPEC MERCI !!