Copier/Coller

Le
lululanantaise2
Bonjour,
Comment copier coller sans que les références à des cellules
s'adaptent à la destination sachant que bien évidemment je n'ai pas
les $ magiques dans les cellules à copier
Merci
Lulu
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FdeCourt
Le #23494791
Bonsoir,

Soit tu le fais à la main, et bon courage, soit tu transformes toutes
tes cellules en référence absolue (mais attention, cela les transforme
TOUTES) :

Avec une macro :

Sub blablabla()
x = Application.Calculation
Application.Calculation = xlCalculationManual
For Each c In Selection.SpecialCells(xlFormulas)
c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1,
xlAbsolute)
Next
Application.Calculation = x
End Sub

Fais une sauvegarde de ton classeur avant.

Cordialement,

F.
DanielCo
Le #23494771
Bonjour,
Essaie cela. La première inputbox te demandera de sélectionner la plage
de cellules (contiguës) contenant les formules. La seconde inputbox te
demandera de sélectionner la plage où les formules doivent être copiées
ou, la cellule haut gauche de cette plage:

Sub CopieFormules()
Dim cSource As Range, cCible As Range
On Error Resume Next
Set cSource = Application.InputBox("Choisis les cellules à copier",
Type:=8)
If Err.Number <> 0 Then Err.Clear
Set cCible = Application.InputBox("Choisis la cellule cible", Type:=8)
If Err.Number <> 0 Then Exit Sub
Set cCible = cCible.Resize(cSource.Rows.Count, cSource.Columns.Count)
cCible.Formula = cSource.Formula
End Sub

Daniel


Bonsoir,

Soit tu le fais à la main, et bon courage, soit tu transformes toutes
tes cellules en référence absolue (mais attention, cela les transforme
TOUTES) :

Avec une macro :

Sub blablabla()
x = Application.Calculation
Application.Calculation = xlCalculationManual
For Each c In Selection.SpecialCells(xlFormulas)
c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1,
xlAbsolute)
Next
Application.Calculation = x
End Sub

Fais une sauvegarde de ton classeur avant.

Cordialement,

F.
DanielCo
Le #23494801
Bonjour,
Essaie cela. La première inputbox te demandera de sélectionner la plage
de cellules (contiguës) contenant les formules. La seconde inputbox te
demandera de sélectionner la plage où les formules doivent être copiées
ou, la cellule haut gauche de cette plage:

Sub CopieFormules()
Dim cSource As Range, cCible As Range
On Error Resume Next
Set cSource = Application.InputBox("Choisis les cellules à copier",
Type:=8)
If Err.Number <> 0 Then Err.Clear
Set cCible = Application.InputBox("Choisis la cellule cible", Type:=8)
If Err.Number <> 0 Then Exit Sub
Set cCible = cCible.Resize(cSource.Rows.Count, cSource.Columns.Count)
cCible.Formula = cSource.Formula
End Sub

Daniel




Bonjour,
Comment copier coller sans que les références à des cellules
s'adaptent à la destination sachant que bien évidemment je n'ai pas
les $ magiques dans les cellules à copier...
Merci
Lulu
Publicité
Poster une réponse
Anonyme