XL 2010 Code VBA

[Thibault98]

Bonsoir,

Avec l'enregistreur de macro j'ai obtenu ceci :

ActiveCell.FormulaR1C1 = "=RIGHT(RC[1],4)" pour sélectionner les 4 derniers caractères côté droit de la cellule voisine.

Dans un code VBA peut-on écrire ce résultat autrement ?
Plus lisible.

Merci d'avance,
Thibault

 

[Papou-net]

Bonsoir Thibault,

Essaie ceci:

ActiveCell = Right(Activecell.Offset(0,1).Value, 4)

Cordialement.

 

[Staple1600]

Bonsoir le fil, le forum

Dans un code VBA peut-on écrire ce résultat autrement ?
Plus lisible.

Alors autrement et moins lisible 😉

Sub Macro1()
Dim vCar&
vCar = Len(Selection)
Selection.TextToColumns Destination:=Range("A1"), DataType:=2, FieldInfo:=Array(Array(0, 9), Array(vCar - 4, 1), Array(vCar, 9))
End Sub

 

[Si...]

Bonjour

Il s'agit de savoir si tu veux garder la formule ou n'avoir que sa valeur.

Dans le premier cas, la seule ligne proposée peut renvoyer une réponse bizarre, dans le second, fidèle à ma suppression du Offset utilisé par Papou-net (salut), je propose, bien moins éclatant que Staple (salut à toi l'artiste qui teste la longueur du texte mais pas la colonne pour avoir une bonne réponse ) :

La sélection doit recevoir en fonction de la droite

premier cas (formule en français dans le code)

Sub QuatreF()
  Dim R As Range
  Set R = (ActiveCell(1, 2))
  If Len(R) > 4 Then ActiveCell.FormulaLocal = "=DROITE(" & R.Address & ";4)"
End Sub

Second cas

Sub QuatreV()
  Dim R As Range
  Set R = ActiveCell(1, 2)
  If Len(R) > 4 Then ActiveCell = Right(R, 4)
End Sub

Remarque pour le second cas on peut reprendre la première macro en joutant à la fin
ActiveCell=ActiveCell.Value


La cellule sélectionnée doit renvoyer à gauche
Reprise de la Macro de Staple

Sub Macro1()
  Dim vCar&
  If Selection.Count > 1 Then Exit Sub
  If Selection.Columns = 1 Then Exit Sub  'la cellule sélectionnée ne doit pas être en colonne 1
  vCar = Len(Selection)
  Selection.TextToColumns Selection(1, 0), 2, FieldInfo:=Array(Array(0, 9), Array(vCar - 4, 1), Array(vCar, 9))
End Sub

 

[Thibault98]

Bonjour et un très grand merci à vous tous, il y a encore des gens sérieux en France.

Bonne journée à vous.
@bientôt
Thibault