Chercher une virgule

gosselien

XLDnaute Barbatruc

• 3 Septembre 2015

• #2

Re : Chercher une virgule

Bonjour,

attention parce que la virgule est parfois le signe de la décimale mais parfois des milliers, ça dépend du clavier dans windows...et de la version excel français/anglais

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2015

• #3

Re : Chercher une virgule

Bonjour Egruat, gosselien,

Code:

Sub macro2()
[H4:H10].FormulaR1C1 = "=RC[-3]*IF(ISERROR(FIND("","",RC[-3])),1000,1000000)"
End Sub

Décalage -3 entre les colonnes H et E...

A+

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 3 Septembre 2015

• #4

Re : Chercher une virgule

Merci beaucoup job75 cela fonctionne à merveille !

Est-il possible de mettre une variable dans la plage de cellule ? tel que par exemple [H4:Hi] ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2015

• #5

Re : Chercher une virgule

Re,

Avec ceci la macro fonctionne quel que soit le séparateur décimal de l'ordi :

Code:

Sub macro2()
[H4:H10].FormulaR1C1 = "=RC[-3]*IF(ISERROR(FIND(MID(1/10,2,1),RC[-3])),1000,1000000)"
End Sub

A+

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 3 Septembre 2015

• #6

Re : Chercher une virgule

Okay merci. Ta 1ère solution me convient car la valeur décimal est dans mon cas uniquement la virgule. En revanche, j'ai besoin de l'appliquer sur une plage de cellules variable

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2015

• #7

Re : Chercher une virgule

Re,

Egruat à dit:

Est-il possible de mettre une variable dans la plage de cellule ? tel que par exemple [H4:Hi] ?

Cliquez pour agrandir...

Une variable ??? Cela n'a pas de sens, mais si vous voulez une plage dynamique :

Code:

Sub macro2()
Range("H4:H" & Cells(Rows.Count, "E").End(xlUp).Row).FormulaR1C1 _
  = "=RC[-3]*IF(ISERROR(FIND(MID(1/10,2,1),RC[-3])),1000,1000000)"
End Sub

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2015

• #8

Re : Chercher une virgule

Re,

Une macro plus peaufinée avec RAZ :

Code:

Sub macro3()
Range("H4:H" & Rows.Count).ClearContents 'RAZ
With Range("H4:H" & Cells(Rows.Count, "E").End(xlUp).Row)
  If .Row < 4 Then Exit Sub
  .FormulaR1C1 = "=RC[-3]*IF(ISERROR(FIND(MID(1/10,2,1),RC[-3])),1000,1000000)"
End With
End Sub

A+

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 3 Septembre 2015

• #9

Re : Chercher une virgule

Merci beaucoup !

 

Vote positif 0 Vote négatif