Microsoft 365 Coder en vba une formule

[Usine à gaz]

Bonsoir à toutes et à tous,

Je bute sur un code que je n'arrive pas à faire.

J'ai cette formule dans ma cellule "F7":
=SI(CNUM(GAUCHE(F7;2))<>33;33&DROITE(F7;9);CNUM(DROITE(F9;3)&DROITE(F7;9)))

Je voudrais la traduire en code VBA dans mon code feuille
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("f6:f15")) Is Nothing Then
MsgBoxListeDeChoix

J'ai cette formule dans une cellule :
=SI(CNUM(GAUCHE(F7;2))<>33;33&DROITE(F7;9);CNUM(DROITE(F9;3)&DROITE(F7;9)))
comme suit :
F7 = activecell (cellule active qui n'est jamais la même),
F9 = toujours A1

Auriez-vous le bon code ?
Si besoin, je ferai un petit fichier test.
Je vous remercie,
lionel

 

[AtTheOne]

Bonne nuit,

Il manque une parenthèse fermante à la fin

Merci @cp4, je n'ai pas de vue d'ensemble avec mon Samsung A8, la parenthèse fermante était passée à la trappe !
Lionnel, tu pouvais peut-être déboguer, non ?
Amicalement
Alain

 

[Usine à gaz]

Re AtTheOne

"Lionnel, tu pouvais peut-être déboguer, non ?"
Evidemment que je l'ai fait mais le résultat n'est pas bon.

Je te remercie de tous les efforts que tu fais mais comme je te l'ai dit :
Ne t'embêtes pas car j'ai trouvé la solution voire #post 25,
Et c'est déjà tout bon.

 

[Jacky67]

Target=iif(left(target.offset(,1),2)="33",

Re à tous
Bon ... j'ai trouvé en ajoutant simplement ce ch'ti code :
ActiveCell.value = ActiveCell.value

Re..

Si tu lisais les réponses déjà données tu aurais vu cela déjà #3

 

[Usine à gaz]

Bonjour Jacky67, le Forum
Tu as raison et je ne l'avais pas vu !
Souvent, les réponses et les #posts arrivent tellement vite qu'en essayant de répondre aussi vite, je me perds et je ne lis pas tout bien lol
Désolé,
lionel

 

[Staple1600]

Bonsoir le fil, le forum, les forumeurs

=>Lionel

je me perds et je ne lis pas tout bien lol

Effectivement, je confirme
Je t'ai pas vu me claquer la bise, ni faire un petit feedback sur mon petit code de test

(cf message#8)

 

[Usine à gaz]

Bonsoir le fil, le forum, les forumeurs

=>Lionel

Effectivement, je confirme
Je t'ai pas vu me claquer la bise, ni faire un petit feedback sur mon petit code de test

(cf message#8)

Bonsoir JM : je te la claque lol mais j'avais bien vu ton message sans rien y comprendre lol

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Usine à gaz :

Evidemment que je l'ai fait mais le résultat n'est pas bon.

Je te remercie de tous les efforts que tu fais mais comme je te l'ai dit :
Ne t'embêtes pas car j'ai trouvé la solution voire #post 25,
Et c'est déjà tout bon.

D'accord mais je n'aime pas rester sur un échec, quand j'ai un os à ronger, je ne le lâche pas si facilement.
Aujourd'hui j'ai retrouvé mon PC, c'est plus facile qu'avec un téléphone !
J'ai 3 solutions à te proposer, la première est celle du post #28 avec la parenthèse fermante (légérement déboguée quoi..) qui fonctionne pour des sélections d'une seule cellule :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e7:e14")) Is Nothing Then
   With R
      .Value = IIf(Left(.Offset(0, 1), 2) <> "33", _
      "33" & Right(.Offset(0, 1), 9), _
       [A1] & Right(.Offset(0, 1), 9))
   End With
End If
End Sub

Et ça fonctionne :

La 2ème c'est la même mais pour une sélection de plusieurs cellules :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim C As Range
     If Not Intersect(R, Range("e7:e14")) Is Nothing Then
     If Intersect(R, [E7:E14]).Address = R.Address Then
          For Each C In R.Cells
               With C
                    .Value = IIf(Left(.Offset(0, 1), 2) <> "33", _
                                 "33" & Right(.Offset(0, 1), 9), _
                                 [A1] & Right(.Offset(0, 1), 9))
               End With
          Next
     End If
     End If
End Sub

Et ça fonctionne :

La 3ème correspond sans doute plus à ce que tu attendais : une évaluation de la formule avec la méthode EVALUATE. avec un inconvénient toutefois elle utilise des références style A1 et pas en relatif, il faut donc créer l'adresse de la cellule de gauche (colonne F) :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim C As Range
  If Not Intersect(R, Range("e7:e14")) Is Nothing Then
  If Intersect(R, [E7:E14]).Address = R.Address Then
     For Each C In R.Cells
       CellF = C.Offset(0, 1).Address
       C.Value = Evaluate("if(Value(left(" & CellF & ",2))<>33,33&Right(" & CellF & ",9),A1&Right(" & CellF & ",9))")
      Next
  End If
  End If
End Sub

Et ça fonctionne aussi :

En PJ les trois exemples
Amicalement
Alain

 

[Usine à gaz]

Bonsoir AtTheOne, le Forum,

Bravo pour ta ténacité
Effectivement les 3 solutions fonctionnent et c'est nickel.
Voilà de quoi choisir selon le besoin.
Je te remercie
Bonne fin de dimanche,
lionel