XL pour MAC Problème dans une macro.

Dranreb

XLDnaute Barbatruc

• 13 Février 2021

• #2

Bonsoir.
En notation A1 quelle devrait être la formule ?
N'oubliez pas de préciser pour quelle cellule en particulier, puisque la notaion R1C1 correspondante en dépend.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2021

• #3

Bonjour le fil

Si j'ai bien compris la donne.
Un exemple

VB:

Sub Macro3_bis()
Dim Ligne$
Ligne = "1600"
ActiveCell.FormulaR1C1 = "=IF(COUNTIF(R" & Ligne & "C4:RC23,R1C),COUNTIF(R" & Ligne & "C4:RC23,R1C),"""")"
End Sub

 

Vote positif 0 Vote négatif

P

phochka

XLDnaute Nouveau

• 14 Février 2021

• #4

Bonjour,
J'ai mal expliquer le problème que je n'arrive pas à résoudre.
Pour mieux m'expliquer, ci-joint le fichier.

Staple1600 à dit:

Bonjour le fil

Si j'ai bien compris la donne.
Un exemple

VB:

Sub Macro3_bis()
Dim Ligne$
Ligne = "1600"
ActiveCell.FormulaR1C1 = "=IF(COUNTIF(R" & Ligne & "C4:RC23,R1C),COUNTIF(R" & Ligne & "C4:RC23,R1C),"""")"
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2021

• #5

Re

Le fichier n'est pas passé.

 

Vote positif 0 Vote négatif

P

phochka

XLDnaute Nouveau

• 14 Février 2021

• #6

Bonjour,
Je vous remercie pour les réponses.
Pour mieux m'expliquer je joins le fichier que j'ai commenté

Merci

 

Pièces jointes

• Keno_Les70NumsSontSortis.xlsm

  206.6 KB · Affichages: 6

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2021

• #7

Re

Testes cette macro (sur une copie de ton fichier)
Supprimes d'abord les formules existantes

VB:

Sub test()
[Y2:CP50].FormulaR1C1 = "=IF(COUNTIF(R2C4:RC23,R1C),COUNTIF(R2C4:RC23,R1C),"""")"
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2021

• #8

Re

Et cette version qui s'adapte automatiquement selon le nombre de lignes en colonne A.

VB:

Sub test_II()
Application.ScreenUpdating = False
Dim Ligne&
Ligne = Cells(Rows.Count, "A").End(3).Row
Range([Y2], Cells(Ligne, "CP")).FormulaR1C1 = "=IF(COUNTIF(R2C4:RC23,R1C),COUNTIF(R2C4:RC23,R1C),"""")"
End Sub

 

Vote positif 0 Vote négatif

P

phochka

XLDnaute Nouveau

• 14 Février 2021

• #9

ReBonjour Staple1600,

Encore merci,
Les 2 versions sont intéressantes, ils me montrent plusieurs façons d'adapter une macro.
Toutefois, je reviens à mon problème initial, j'aurais aimé que dans le 1er cas, Y2:CP50 me fait toujours revenir au début.
2ème version: Range [Y2] me fait toujours revenir à cette cellule.
En fait, Dim Ligne me parait intéressant, mais je ne sais pas lui indiquer qu'l faut que la ligne soit egale à la ligne ou il se trouve par exemple en ligne 10 au moment ou je fais le test.

 

Vote positif 0 Vote négatif

P

phochka

XLDnaute Nouveau

• 14 Février 2021

• #10

Staple1600,

je voulais préciser la version qui me semble plus facile à comprendre.

VB:

Sub Macro3_bis()
Dim Ligne$
Ligne = "1600"
ActiveCell.FormulaR1C1 = "=IF(COUNTIF(R" & Ligne & "C4:RC23,R1C),COUNTIF(R" & Ligne & "C4:RC23,R1C),"""")"
End Sub

merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2021

• #11

Re

Je dirais que la plus pratique est la dernière, non ?
(celle du message#8)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2021

• #12

Re

Sinon; c'est cela que tu veux faire peut-être?

VB:

Sub Macro3_ter()
Dim Ligne$
Ligne = CStr(ActiveCell.Row)
ActiveCell.FormulaR1C1 = "=IF(COUNTIF(R" & Ligne & "C4:RC23,R1C),COUNTIF(R" & Ligne & "C4:RC23,R1C),"""")"
End Sub

 

Vote positif 0 Vote négatif

Solution

P

phochka

XLDnaute Nouveau

• 14 Février 2021

• #13

Re

Génial, merci mille fois Staple1600, voilà effectivement ce que je cherchais partout.
Mille fois merci

Cordialement

 

Vote positif 0 Vote négatif