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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2024

• #2

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

matlatarte à dit:

au clic

Cliquez pour agrandir...

Quel clic, sur quelle cellule ?

matlatarte à dit:

alors renvoyer cette valeur dans une cellule.

Cliquez pour agrandir...

Quelle cellule ?

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 10 Février 2024

• #3

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

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

 

Pièces jointes

• Classeur1.xlsm

  16.9 KB · Affichages: 0

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2024

• #4

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

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 10 Février 2024

• #5

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 !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2024

• #6

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

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 10 Février 2024

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2024

• #8

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à.

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 10 Février 2024

• #9

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)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2024

• #10

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.

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 10 Février 2024

• #11

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

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 11 Février 2024

• #12

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

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2024

• #13

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

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 11 Février 2024

• #14

YES IMPEC MERCI !!

 

Vote positif 0 Vote négatif