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

matlatarte

XLDnaute Junior
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

XLDnaute Barbatruc
Supporter XLD
D'après ce que j'ai compris :
VB:
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.
 

Pièces jointes

  • Classeur1 (4).xlsm
    16.4 KB · Affichages: 0

sylvanu

XLDnaute Barbatruc
Supporter XLD
VB:
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Junior
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
 

Pièces jointes

  • Classeur1 (5).xlsm
    17.7 KB · Affichages: 0

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
En ajoutant pour décider si copie ou non :
VB:
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
 

Pièces jointes

  • Classeur1 (5) (3).xlsm
    17.7 KB · Affichages: 0

Discussions similaires

Réponses
5
Affichages
353

Statistiques des forums

Discussions
315 090
Messages
2 116 101
Membres
112 661
dernier inscrit
ceucri