Je cherche à affecter une fonction (ENT) en une seule fois à une sélection
de cellules, pas nécessairement adjacentes.
Si ces cellules contiennent des constantes, j'ai essayé ça :
Sub entier()
For Each c In Selection.Cells
c.Value = Int(c)
Next
End Sub
Ca marche. Mais je ne sais pas comment faire avec des cellules qui
contiennent des formules.
Si j'applique ce code, je perds les formules.
Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui
permet de l'obtenir, dans plusieurs cellules simultanément ?
AB
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. c.Formula = "=int(" & Right(c.Formula, _ Len(c.Formula) - 1) & ")" devrait faire l'affaire. Cordialement. Daniel "AB" a écrit dans le message de news:
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
Bonjour.
c.Formula = "=int(" & Right(c.Formula, _
Len(c.Formula) - 1) & ")"
devrait faire l'affaire.
Cordialement.
Daniel
"AB" <spamophobe1@marseille.com> a écrit dans le message de news:
uzC1vb08FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection
de cellules, pas nécessairement adjacentes.
Si ces cellules contiennent des constantes, j'ai essayé ça :
Sub entier()
For Each c In Selection.Cells
c.Value = Int(c)
Next
End Sub
Ca marche. Mais je ne sais pas comment faire avec des cellules qui
contiennent des formules.
Si j'applique ce code, je perds les formules.
Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui
permet de l'obtenir, dans plusieurs cellules simultanément ?
AB
Bonjour. c.Formula = "=int(" & Right(c.Formula, _ Len(c.Formula) - 1) & ")" devrait faire l'affaire. Cordialement. Daniel "AB" a écrit dans le message de news:
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
AB
Daniel, grand merci. Ca fait parfaitement l'affaire. Bon dimanche. André
"Daniel" a écrit dans le message de news: O%
Bonjour. c.Formula = "=int(" & Right(c.Formula, _ Len(c.Formula) - 1) & ")" devrait faire l'affaire. Cordialement. Daniel "AB" a écrit dans le message de news:
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
Daniel, grand merci. Ca fait parfaitement l'affaire.
Bon dimanche.
André
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
O%23AgTj08FHA.740@TK2MSFTNGP11.phx.gbl...
Bonjour.
c.Formula = "=int(" & Right(c.Formula, _
Len(c.Formula) - 1) & ")"
devrait faire l'affaire.
Cordialement.
Daniel
"AB" <spamophobe1@marseille.com> a écrit dans le message de news:
uzC1vb08FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une
sélection de cellules, pas nécessairement adjacentes.
Si ces cellules contiennent des constantes, j'ai essayé ça :
Sub entier()
For Each c In Selection.Cells
c.Value = Int(c)
Next
End Sub
Ca marche. Mais je ne sais pas comment faire avec des cellules qui
contiennent des formules.
Si j'applique ce code, je perds les formules.
Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui
permet de l'obtenir, dans plusieurs cellules simultanément ?
AB
Daniel, grand merci. Ca fait parfaitement l'affaire. Bon dimanche. André
"Daniel" a écrit dans le message de news: O%
Bonjour. c.Formula = "=int(" & Right(c.Formula, _ Len(c.Formula) - 1) & ")" devrait faire l'affaire. Cordialement. Daniel "AB" a écrit dans le message de news:
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
michdenis
Bonjour AB,
Il y a aussi ceci :
'------------------------------- Sub test()
Dim Rg As Range, C As Range If TypeName(Selection) = "Range" Then On Error Resume Next Set Rg = Selection.SpecialCells( _ xlCellTypeConstants, xlNumbers) If Err <> 0 Then Exit Sub For Each C In Rg C.Value = Int(C) Next End If Set Rg = Nothing: Set C = Nothing
End Sub '-------------------------------
Salutations!
"AB" a écrit dans le message de news: Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
Bonjour AB,
Il y a aussi ceci :
'-------------------------------
Sub test()
Dim Rg As Range, C As Range
If TypeName(Selection) = "Range" Then
On Error Resume Next
Set Rg = Selection.SpecialCells( _
xlCellTypeConstants, xlNumbers)
If Err <> 0 Then Exit Sub
For Each C In Rg
C.Value = Int(C)
Next
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'-------------------------------
Salutations!
"AB" <spamophobe1@marseille.com> a écrit dans le message de news: uzC1vb08FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection
de cellules, pas nécessairement adjacentes.
Si ces cellules contiennent des constantes, j'ai essayé ça :
Sub entier()
For Each c In Selection.Cells
c.Value = Int(c)
Next
End Sub
Ca marche. Mais je ne sais pas comment faire avec des cellules qui
contiennent des formules.
Si j'applique ce code, je perds les formules.
Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui
permet de l'obtenir, dans plusieurs cellules simultanément ?
AB
Dim Rg As Range, C As Range If TypeName(Selection) = "Range" Then On Error Resume Next Set Rg = Selection.SpecialCells( _ xlCellTypeConstants, xlNumbers) If Err <> 0 Then Exit Sub For Each C In Rg C.Value = Int(C) Next End If Set Rg = Nothing: Set C = Nothing
End Sub '-------------------------------
Salutations!
"AB" a écrit dans le message de news: Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
AB
Salut, Ta proposition fonctionne avec les cellules ne contenant pas des formules, mais des valeurs. Or, mon problème (résolu désormais), concernait les cellules avec formules. Merci quand même, en tout cas. AB
"michdenis" a écrit dans le message de news:
Bonjour AB,
Il y a aussi ceci :
'------------------------------- Sub test()
Dim Rg As Range, C As Range If TypeName(Selection) = "Range" Then On Error Resume Next Set Rg = Selection.SpecialCells( _ xlCellTypeConstants, xlNumbers) If Err <> 0 Then Exit Sub For Each C In Rg C.Value = Int(C) Next End If Set Rg = Nothing: Set C = Nothing
End Sub '-------------------------------
Salutations!
"AB" a écrit dans le message de news:
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
Salut,
Ta proposition fonctionne avec les cellules ne contenant pas des formules,
mais des valeurs.
Or, mon problème (résolu désormais), concernait les cellules avec formules.
Merci quand même, en tout cas.
AB
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eDklng18FHA.1188@TK2MSFTNGP12.phx.gbl...
Bonjour AB,
Il y a aussi ceci :
'-------------------------------
Sub test()
Dim Rg As Range, C As Range
If TypeName(Selection) = "Range" Then
On Error Resume Next
Set Rg = Selection.SpecialCells( _
xlCellTypeConstants, xlNumbers)
If Err <> 0 Then Exit Sub
For Each C In Rg
C.Value = Int(C)
Next
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'-------------------------------
Salutations!
"AB" <spamophobe1@marseille.com> a écrit dans le message de news:
uzC1vb08FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection
de cellules, pas nécessairement adjacentes.
Si ces cellules contiennent des constantes, j'ai essayé ça :
Sub entier()
For Each c In Selection.Cells
c.Value = Int(c)
Next
End Sub
Ca marche. Mais je ne sais pas comment faire avec des cellules qui
contiennent des formules.
Si j'applique ce code, je perds les formules.
Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui
permet de l'obtenir, dans plusieurs cellules simultanément ?
AB
Salut, Ta proposition fonctionne avec les cellules ne contenant pas des formules, mais des valeurs. Or, mon problème (résolu désormais), concernait les cellules avec formules. Merci quand même, en tout cas. AB
"michdenis" a écrit dans le message de news:
Bonjour AB,
Il y a aussi ceci :
'------------------------------- Sub test()
Dim Rg As Range, C As Range If TypeName(Selection) = "Range" Then On Error Resume Next Set Rg = Selection.SpecialCells( _ xlCellTypeConstants, xlNumbers) If Err <> 0 Then Exit Sub For Each C In Rg C.Value = Int(C) Next End If Set Rg = Nothing: Set C = Nothing
End Sub '-------------------------------
Salutations!
"AB" a écrit dans le message de news:
Bonjour,
Je cherche à affecter une fonction (ENT) en une seule fois à une sélection de cellules, pas nécessairement adjacentes. Si ces cellules contiennent des constantes, j'ai essayé ça : Sub entier() For Each c In Selection.Cells c.Value = Int(c) Next End Sub Ca marche. Mais je ne sais pas comment faire avec des cellules qui contiennent des formules. Si j'applique ce code, je perds les formules. Y a-t-il un moyen d'obtenir un résultat entier, en gardant la formule qui permet de l'obtenir, dans plusieurs cellules simultanément ? AB
