Mettre des $ automatiquement à toutes les formules?
8 réponses
letibo
Bonjour!
J'ai fais une recherche mais je n'ai pas vu de r=E9ponse a ma question.
je m'explique, pour simplifier disons que j'ai des formules sur
beaucoup de cellules, je dois d=E9placer ces dernieres mais je veux que
la formule reste figer il faudrait tout simplement mettre des dollars
partout, est-il possible de le faire automatiquement ?
Merci d'avance.
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
andre
bonjour il me semble que F4 fait l'affaire salutations "letibo" a écrit dans le message de news:
Bonjour! J'ai fais une recherche mais je n'ai pas vu de réponse a ma question. je m'explique, pour simplifier disons que j'ai des formules sur beaucoup de cellules, je dois déplacer ces dernieres mais je veux que la formule reste figer il faudrait tout simplement mettre des dollars partout, est-il possible de le faire automatiquement ? Merci d'avance.
bonjour
il me semble que F4 fait l'affaire
salutations
"letibo" <thibault.harre@gmail.com> a écrit dans le message de news:
1141131861.486120.236270@e56g2000cwe.googlegroups.com...
Bonjour!
J'ai fais une recherche mais je n'ai pas vu de réponse a ma question.
je m'explique, pour simplifier disons que j'ai des formules sur
beaucoup de cellules, je dois déplacer ces dernieres mais je veux que
la formule reste figer il faudrait tout simplement mettre des dollars
partout, est-il possible de le faire automatiquement ?
Merci d'avance.
bonjour il me semble que F4 fait l'affaire salutations "letibo" a écrit dans le message de news:
Bonjour! J'ai fais une recherche mais je n'ai pas vu de réponse a ma question. je m'explique, pour simplifier disons que j'ai des formules sur beaucoup de cellules, je dois déplacer ces dernieres mais je veux que la formule reste figer il faudrait tout simplement mettre des dollars partout, est-il possible de le faire automatiquement ? Merci d'avance.
letibo
Oui mais je voudrais m'éviter la tâche de cliquer sur chaque formule pour pour taper F4, et j'ai essayer de selectionner une plage de cellules et de cliquer sur F4 mais ca ne fonctionne pas. Existerait t il un moyen de selectionner une plage et de mettre automatiquement des $ pour chacune des cellules selectionnées ?? Merci!
Oui mais je voudrais m'éviter la tâche de cliquer sur chaque formule
pour pour taper F4, et j'ai essayer de selectionner une plage de
cellules et de cliquer sur F4 mais ca ne fonctionne pas. Existerait t
il un moyen de selectionner une plage et de mettre automatiquement des
$ pour chacune des cellules selectionnées ??
Merci!
Oui mais je voudrais m'éviter la tâche de cliquer sur chaque formule pour pour taper F4, et j'ai essayer de selectionner une plage de cellules et de cliquer sur F4 mais ca ne fonctionne pas. Existerait t il un moyen de selectionner une plage et de mettre automatiquement des $ pour chacune des cellules selectionnées ?? Merci!
blutch
Salut Letibo,
Moi, dans ces cas là, j'utilise La Fonction Edition Rechercher/Remplacer et je recherche le point commun à toutes mes formules pour y inclure des $.
Je sais pas si dans ton cas c'est possible.
A bientôt Blutch
Salut Letibo,
Moi, dans ces cas là, j'utilise La Fonction Edition
Rechercher/Remplacer et je recherche le point commun à toutes mes
formules pour y inclure des $.
S'il n'y a pas de solutions plus simple je ferais ta technique. Merci pour vos réponses en tout cas.
claudy
Bonjour... Sub Relatif_To_Absolu_Ou_Vice_Versa() Dim c As Range Dim LaFormule As String For Each c In Selection LaFormule = c.Formula If LaFormule Like "*$*" Then c.Value = Application.ConvertFormula _ (Formula:=LaFormule, fromReferenceStyle:=xlA1, _ toReferenceStyle:=xlA1, ToAbsolute:=xlRelative) Else c.Value = Application.ConvertFormula _ (Formula:=LaFormule, fromReferenceStyle:=xlA1, _ toReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute) End If Next c
End Sub A+ Claudy
"letibo" a écrit dans le message de news:
S'il n'y a pas de solutions plus simple je ferais ta technique. Merci pour vos réponses en tout cas.
Bonjour...
Sub Relatif_To_Absolu_Ou_Vice_Versa()
Dim c As Range
Dim LaFormule As String
For Each c In Selection
LaFormule = c.Formula
If LaFormule Like "*$*" Then
c.Value = Application.ConvertFormula _
(Formula:=LaFormule, fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
Else
c.Value = Application.ConvertFormula _
(Formula:=LaFormule, fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
Next c
End Sub
A+
Claudy
"letibo" <thibault.harre@gmail.com> a écrit dans le message de news:
1141134175.909089.64810@u72g2000cwu.googlegroups.com...
S'il n'y a pas de solutions plus simple je ferais ta technique.
Merci pour vos réponses en tout cas.
Bonjour... Sub Relatif_To_Absolu_Ou_Vice_Versa() Dim c As Range Dim LaFormule As String For Each c In Selection LaFormule = c.Formula If LaFormule Like "*$*" Then c.Value = Application.ConvertFormula _ (Formula:=LaFormule, fromReferenceStyle:=xlA1, _ toReferenceStyle:=xlA1, ToAbsolute:=xlRelative) Else c.Value = Application.ConvertFormula _ (Formula:=LaFormule, fromReferenceStyle:=xlA1, _ toReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute) End If Next c
End Sub A+ Claudy
"letibo" a écrit dans le message de news:
S'il n'y a pas de solutions plus simple je ferais ta technique. Merci pour vos réponses en tout cas.
letibo
MERCI!! Ca marche et ca me fera gagner beaucoup de temps!
MERCI!! Ca marche et ca me fera gagner beaucoup de temps!
MERCI!! Ca marche et ca me fera gagner beaucoup de temps!
michdenis
Bonjour Letibo,
Pour copier exactement toutes les mêmes formules de la feuil1 au même endroit sur la feuil2 du classeur ou d'un classeur différent si désiré.
'------------------------------- Sub Formule()
Dim Rg As Range Dim Tblo As Variant
With Feuil1 ' CodName De l'objet et non le nom de l'onglet de la feuille On Error Resume Next Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) Tblo = Rg.Formula With Feuil2 .Range(Rg.Address) = Tblo End With End With End Sub '-------------------------------
Salutations!
"letibo" a écrit dans le message de news: Bonjour! J'ai fais une recherche mais je n'ai pas vu de réponse a ma question. je m'explique, pour simplifier disons que j'ai des formules sur beaucoup de cellules, je dois déplacer ces dernieres mais je veux que la formule reste figer il faudrait tout simplement mettre des dollars partout, est-il possible de le faire automatiquement ? Merci d'avance.
Bonjour Letibo,
Pour copier exactement toutes les mêmes formules de la feuil1 au même endroit
sur la feuil2 du classeur ou d'un classeur différent si désiré.
'-------------------------------
Sub Formule()
Dim Rg As Range
Dim Tblo As Variant
With Feuil1 ' CodName De l'objet et non le nom de l'onglet de la feuille
On Error Resume Next
Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas)
Tblo = Rg.Formula
With Feuil2
.Range(Rg.Address) = Tblo
End With
End With
End Sub
'-------------------------------
Salutations!
"letibo" <thibault.harre@gmail.com> a écrit dans le message de news: 1141131861.486120.236270@e56g2000cwe.googlegroups.com...
Bonjour!
J'ai fais une recherche mais je n'ai pas vu de réponse a ma question.
je m'explique, pour simplifier disons que j'ai des formules sur
beaucoup de cellules, je dois déplacer ces dernieres mais je veux que
la formule reste figer il faudrait tout simplement mettre des dollars
partout, est-il possible de le faire automatiquement ?
Merci d'avance.
Pour copier exactement toutes les mêmes formules de la feuil1 au même endroit sur la feuil2 du classeur ou d'un classeur différent si désiré.
'------------------------------- Sub Formule()
Dim Rg As Range Dim Tblo As Variant
With Feuil1 ' CodName De l'objet et non le nom de l'onglet de la feuille On Error Resume Next Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) Tblo = Rg.Formula With Feuil2 .Range(Rg.Address) = Tblo End With End With End Sub '-------------------------------
Salutations!
"letibo" a écrit dans le message de news: Bonjour! J'ai fais une recherche mais je n'ai pas vu de réponse a ma question. je m'explique, pour simplifier disons que j'ai des formules sur beaucoup de cellules, je dois déplacer ces dernieres mais je veux que la formule reste figer il faudrait tout simplement mettre des dollars partout, est-il possible de le faire automatiquement ? Merci d'avance.
michdenis
J'oubliais la méthode proposée ne demande pas l'usage du $ (référence absolue)
Salutations!
Pour copier exactement toutes les mêmes formules de la feuil1 au même endroit sur la feuil2 du classeur ou d'un classeur différent si désiré.
'------------------------------- Sub Formule()
Dim Rg As Range Dim Tblo As Variant
With Feuil1 ' CodName De l'objet et non le nom de l'onglet de la feuille On Error Resume Next Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) Tblo = Rg.Formula With Feuil2 .Range(Rg.Address) = Tblo End With End With End Sub '-------------------------------
Salutations!
"letibo" a écrit dans le message de news: Bonjour! J'ai fais une recherche mais je n'ai pas vu de réponse a ma question. je m'explique, pour simplifier disons que j'ai des formules sur beaucoup de cellules, je dois déplacer ces dernieres mais je veux que la formule reste figer il faudrait tout simplement mettre des dollars partout, est-il possible de le faire automatiquement ? Merci d'avance.
J'oubliais la méthode proposée ne demande pas l'usage du $ (référence absolue)
Salutations!
Pour copier exactement toutes les mêmes formules de la feuil1 au même endroit
sur la feuil2 du classeur ou d'un classeur différent si désiré.
'-------------------------------
Sub Formule()
Dim Rg As Range
Dim Tblo As Variant
With Feuil1 ' CodName De l'objet et non le nom de l'onglet de la feuille
On Error Resume Next
Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas)
Tblo = Rg.Formula
With Feuil2
.Range(Rg.Address) = Tblo
End With
End With
End Sub
'-------------------------------
Salutations!
"letibo" <thibault.harre@gmail.com> a écrit dans le message de news: 1141131861.486120.236270@e56g2000cwe.googlegroups.com...
Bonjour!
J'ai fais une recherche mais je n'ai pas vu de réponse a ma question.
je m'explique, pour simplifier disons que j'ai des formules sur
beaucoup de cellules, je dois déplacer ces dernieres mais je veux que
la formule reste figer il faudrait tout simplement mettre des dollars
partout, est-il possible de le faire automatiquement ?
Merci d'avance.
J'oubliais la méthode proposée ne demande pas l'usage du $ (référence absolue)
Salutations!
Pour copier exactement toutes les mêmes formules de la feuil1 au même endroit sur la feuil2 du classeur ou d'un classeur différent si désiré.
'------------------------------- Sub Formule()
Dim Rg As Range Dim Tblo As Variant
With Feuil1 ' CodName De l'objet et non le nom de l'onglet de la feuille On Error Resume Next Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) Tblo = Rg.Formula With Feuil2 .Range(Rg.Address) = Tblo End With End With End Sub '-------------------------------
Salutations!
"letibo" a écrit dans le message de news: Bonjour! J'ai fais une recherche mais je n'ai pas vu de réponse a ma question. je m'explique, pour simplifier disons que j'ai des formules sur beaucoup de cellules, je dois déplacer ces dernieres mais je veux que la formule reste figer il faudrait tout simplement mettre des dollars partout, est-il possible de le faire automatiquement ? Merci d'avance.
