Copier une feuille contenant une marco d'un classeur à un autre

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion foufana
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

foufana

Guest
Bonjour à tous!
Lorsque je copie une macro d'un fichier à un autre, et lorsque j'execute cette macro dans le nouveau classeur ce message d'erreur apparaît :
"Erreur de compilation
Sub ou Function non définie"
En sachant que j'ai bien copié la macro dans le nouveau classeur et également le bouton formulaire qui execute cette macro.
Merci de votre aide.
 
Trier par date Trier par votes
Re : Copier une feuille contenant une marco d'un classeur à un autre

Re,

Cela dit une mauvaise affectation du bouton ne crée pas une erreur de compilation, c'est un autre type d'erreur.

Il y a quelque chose qui ne va pas dans les codes. Mais sans fichier...

A+
 
Vote positif 0 Vote négatif
Re : Copier une feuille contenant une marco d'un classeur à un autre

Je ne peux t'envoyer le fichier car il est trop volumineux par contre je te met le détail de la macro si cela peut t'éclaircir :

Sub importerspread()
Dim NomFichier As String
Dim NomFichier1 As String
Dim NomFichier2 As String

NomFichier = InputBox("Veuillez saisir le nom du fichier d'où vont être importés les paramètres crédits du mois en cours" & vbCr & "Par exemple: Barèmes_RAC_Mai_2009_TRC.xls")

GetData "S:\DCG\DCG_Commun\CNCE-Rac\Barèmes\2009\" & NomFichier, "BAREMES", _
"B5:J17333", Sheets("Traitement").Range("A1"), True, False


On Error GoTo Fin


If NomFichier = "" Then
GoTo Fin
End If

Dim ProfilRA As String
Dim periodicite As String
Dim Typeamortissement As String



ProfilRA = InputBox("Veuillez choisir un profil RA pour les crédits à taux révisable: 0, 3, 5 ou 10")
periodicite = InputBox("Veuillez choisir la périodicité de remboursement pour les crédits à taux révisable" & vbCr & " M pour mensuel" & vbCr & "T pour trimestriel" & vbCr & " S pour semestriel" & vbCr & " A pour annuel")
Typeamortissement = InputBox("Veuillez choisir le type d'amortissement pour les crédits à taux révisable" & vbCr & " P pour échéance constante" & vbCr & "C pour part capital constante" & vbCr & " I pour infine")

If ProfilRA <> "0" And ProfilRA <> "3" And ProfilRA <> "5" And ProfilRA <> "10" Then
MsgBox ("Erreur de saisie ou sélection inexistante")
GoTo Fin
ElseIf periodicite <> "M" And periodicité <> "T" And periodicite <> "S" And periodicite <> "A" Then
MsgBox ("Erreur de saisie ou sélection inexistante")
GoTo Fin
ElseIf Typeamortissement <> "P" And Typeamortissement <> "C" And Typeamortissement <> "I" Then
MsgBox ("Erreur de saisie ou sélection inexistante")
GoTo Fin
Else

Worksheets("TCI crédit").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = ProfilRA
Range("B4").Select
ActiveCell.FormulaR1C1 = periodicite
Range("B5").Select
ActiveCell.FormulaR1C1 = Typeamortissement


Worksheets("Traitement").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "b"
Range("C1").Select
ActiveCell.FormulaR1C1 = "c"
Range("D1").Select
ActiveCell.FormulaR1C1 = "swap"
Range("E1").Select
ActiveCell.FormulaR1C1 = "spread haut"
Range("F1").Select
ActiveCell.FormulaR1C1 = "spread bas"
Range("G1").Select
ActiveCell.FormulaR1C1 = "TAN haut"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Tan bas"
Range("I1").Select
ActiveCell.FormulaR1C1 = "DVMA"
Range("A1:I17428").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ProfilRA
Selection.AutoFilter Field:=2, Criteria1:=periodicite
Selection.AutoFilter Field:=3, Criteria1:=Typeamortissement

'pour spread E1:E18369
'pour TAN G
'pour dvma I


Columns("D😀").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("AI1").Select
ActiveSheet.Paste

Worksheets("Traitement").Select

Columns("E:E").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("H1").Select
ActiveSheet.Paste

For i = 1 To 349 Step 12

Range("J" & i).Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2]:R[11]C[-2])/100"

Next i

Range("J1:J360").Select

Selection.NumberFormat = "0.00%"
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Copy
Range("M2").Select
ActiveSheet.Paste
Range("M1").Select
Application.CutCopyMode = False

MsgBox ("Données crédits taux révisable importées avec succès")

End If

Worksheets("Traitement").Select

'Dim ProfilRA1 As String
'Dim periodicite1 As String
'Dim Typeamortissement1 As String


'ProfilRA1 = InputBox("Veuillez choisir un profil RA pour les crédits taux fixe : 0, 3, 5 ou 10")
'periodicite1 = InputBox("Veuillez choisir la périodicité de remboursement pour les crédits taux fixe" & vbCr & " M pour mensuel" & vbCr & "T pour trimestriel" & vbCr & " S pour semestriel" & vbCr & " A pour annuel")
'Typeamortissement1 = InputBox("Veuillez choisir le type d'amortissement pour les crédits taux fixe" & vbCr & " P pour échéance constante" & vbCr & "C pour part capital constante" & vbCr & " I pour infine")

'If ProfilRA1 <> "0" And ProfilRA1 <> "3" And ProfilRA1 <> "5" And ProfilRA1 <> "10" Then
'MsgBox ("Erreur de saisie")
'GoTo Fin
'ElseIf periodicite1 <> "M" And periodicite1 <> "T" And periodicite1 <> "S" And periodicite1 <> "A" Then
'MsgBox ("Erreur de saisie")
'GoTo Fin
'ElseIf Typeamortissement1 <> "P" And Typeamortissement1 <> "C" And Typeamortissement1 <> "I" Then
'MsgBox ("Erreur de saisie")
'GoTo Fin
'Else

'Range("A1:I17428").Select
'Selection.AutoFilter
'Selection.AutoFilter Field:=1, Criteria1:=ProfilRA
'Selection.AutoFilter Field:=2, Criteria1:=periodicite
'Selection.AutoFilter Field:=3, Criteria1:=Typeamortissement

'pour spread E1:E18369
'pour TAN G
'pour dvma I

Columns("G:G").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("Q1").Select
ActiveSheet.Paste

For i = 1 To 349 Step 12

Range("S" & i).Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2]:R[11]C[-2])/100"

Next i

Range("S1:S360").Select

Selection.NumberFormat = "0.00%"
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Copy
Range("V2").Select
ActiveSheet.Paste
Range("M1").Select
Application.CutCopyMode = False

MsgBox ("Données crédits taux fixe importées avec succès")

Worksheets("Traitement").Select

Columns("I:I").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("AA1").Select
ActiveSheet.Paste

For i = 1 To 349 Step 12

Range("AC" & i).Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2]:R[11]C[-2])"

Next i

Range("AC1:AC360").Select

Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Copy
Range("AF2").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
MsgBox ("DVMA importées avec succès.")



Worksheets("Traitement").Select

Rows("1:29").Select
Selection.Delete Shift:=xlUp

Range("A:I").Select
Range("E16").Activate
Selection.Clear
Range("C9").Select
Worksheets("TCI crédit").Select


GetData "S:\DCG\DCG_Commun\CNCE-Rac\Barèmes\2009\" & NomFichier, "CT_CAP", _
"B5:M17333", Sheets("Traitement").Range("A1"), True, False

Worksheets("Traitement").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "b"
Range("C1").Select
ActiveCell.FormulaR1C1 = 0.01
Range("D1").Select
ActiveCell.FormulaR1C1 = 0.015
Range("E1").Select
ActiveCell.FormulaR1C1 = 0.02
Range("F1").Select
ActiveCell.FormulaR1C1 = 0.025
Range("G1").Select
ActiveCell.FormulaR1C1 = 0.03
Range("H1").Select
ActiveCell.FormulaR1C1 = 0.035
Range("I1").Select
ActiveCell.FormulaR1C1 = 0
Range("J1").Select
ActiveCell.FormulaR1C1 = 0.005
Range("K1").Select
ActiveCell.FormulaR1C1 = 0.04
Range("L1").Select
ActiveCell.FormulaR1C1 = 0.045
Range("A1:L17428").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ProfilRA
Selection.AutoFilter Field:=2, Criteria1:=Typeamortissement

Columns("C:L").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("AL1").Select
ActiveSheet.Paste

Range("AL1").Select
Application.CutCopyMode = False
Columns("AR:AR").Select
Selection.Copy
Columns("AL:AL").Select
Selection.Insert Shift:=xlToRight
Columns("AS:AS").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Selection.Copy
Columns("AM:AM").Select
Selection.Insert Shift:=xlToRight
Columns("AT:AT").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("AK1").Select

MsgBox ("Coût des CAP importé avec succès.")



'Fin:
Worksheets("Traitement").Select

Rows("1:29").Select
Selection.Delete Shift:=xlUp

Range("A😀D").Select
Range("E16").Activate
Selection.Clear
Range("C9").Select
Worksheets("TCI crédit").Select


NomFichier1 = InputBox("Veuillez saisir le nom du fichier d'où vont être importés les paramètres crédits du mois dernier" & vbCr & "Par exemple: Barèmes_RAC_Mai_2009_TRC.xls")

GetData "S:\DCG\DCG_Commun\CNCE-Rac\Barèmes\2009\" & NomFichier1, "BAREMES", _
"B5:J17333", Sheets("Traitement").Range("A1"), True, False


On Error GoTo Fin


If NomFichier1 = "" Then
GoTo Fin
End If




Worksheets("Traitement").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "b"
Range("C1").Select
ActiveCell.FormulaR1C1 = "c"
Range("D1").Select
ActiveCell.FormulaR1C1 = "swap"
Range("E1").Select
ActiveCell.FormulaR1C1 = "spread haut"
Range("F1").Select
ActiveCell.FormulaR1C1 = "spread bas"
Range("G1").Select
ActiveCell.FormulaR1C1 = "TAN haut"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Tan bas"
Range("I1").Select
ActiveCell.FormulaR1C1 = "DVMA"
Range("A1:I17428").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ProfilRA
Selection.AutoFilter Field:=2, Criteria1:=periodicite
Selection.AutoFilter Field:=3, Criteria1:=Typeamortissement

'pour spread E1:E18369
'pour TAN G
'pour dvma I


Columns("D😀").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("AZ1").Select
ActiveSheet.Paste

Worksheets("Traitement").Select

Columns("E:E").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("BC1").Select
ActiveSheet.Paste



MsgBox ("Données crédits taux révisable importées avec succès")



Worksheets("Traitement").Select



Columns("G:G").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("BF1").Select
ActiveSheet.Paste



MsgBox ("Données crédits taux fixe importées avec succès")

Worksheets("Traitement").Select

Columns("I:I").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("BI1").Select
ActiveSheet.Paste


MsgBox ("DVMA importées avec succès.")



Worksheets("Traitement").Select

Rows("1:29").Select
Selection.Delete Shift:=xlUp

Range("A😀D").Select
Range("E16").Activate
Selection.Clear
Range("C9").Select
Worksheets("TCI crédit").Select


GetData "S:\DCG\DCG_Commun\CNCE-Rac\Barèmes\2009\" & NomFichier1, "CT_CAP", _
"B5:M17333", Sheets("Traitement").Range("A1"), True, False

Worksheets("Traitement").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "b"
Range("C1").Select
ActiveCell.FormulaR1C1 = 0.01
Range("D1").Select
ActiveCell.FormulaR1C1 = 0.015
Range("E1").Select
ActiveCell.FormulaR1C1 = 0.02
Range("F1").Select
ActiveCell.FormulaR1C1 = 0.025
Range("G1").Select
ActiveCell.FormulaR1C1 = 0.03
Range("H1").Select
ActiveCell.FormulaR1C1 = 0.035
Range("I1").Select
ActiveCell.FormulaR1C1 = 0
Range("J1").Select
ActiveCell.FormulaR1C1 = 0.005
Range("K1").Select
ActiveCell.FormulaR1C1 = 0.04
Range("L1").Select
ActiveCell.FormulaR1C1 = 0.045
Range("A1:L17428").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ProfilRA
Selection.AutoFilter Field:=2, Criteria1:=Typeamortissement

Columns("C:L").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("BL1").Select
ActiveSheet.Paste

Range("BL1").Select
Application.CutCopyMode = False
Columns("BR:BR").Select
Selection.Copy
Columns("BL:BL").Select
Selection.Insert Shift:=xlToRight
Columns("BS:BS").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Selection.Copy
Columns("BM:BM").Select
Selection.Insert Shift:=xlToRight
Columns("BT:BT").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("AK1").Select

MsgBox ("Coût des CAP importé avec succès.")

Worksheets("Traitement").Select

Rows("1:29").Select
Selection.Delete Shift:=xlUp

Range("A😀D").Select
Range("E16").Activate
Selection.Clear
Range("C9").Select
Worksheets("TCI crédit").Select


NomFichier2 = InputBox("Veuillez saisir le nom du fichier d'où vont être importés les paramètres crédits de l'avant dernier mois" & vbCr & "Par exemple: Barèmes_RAC_Mai_2009_TRC.xls")

GetData "S:\DCG\DCG_Commun\CNCE-Rac\Barèmes\2009\" & NomFichier2, "BAREMES", _
"B5:J17333", Sheets("Traitement").Range("A1"), True, False


On Error GoTo Fin


If NomFichier2 = "" Then
GoTo Fin
End If





Worksheets("Traitement").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "b"
Range("C1").Select
ActiveCell.FormulaR1C1 = "c"
Range("D1").Select
ActiveCell.FormulaR1C1 = "swap"
Range("E1").Select
ActiveCell.FormulaR1C1 = "spread haut"
Range("F1").Select
ActiveCell.FormulaR1C1 = "spread bas"
Range("G1").Select
ActiveCell.FormulaR1C1 = "TAN haut"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Tan bas"
Range("I1").Select
ActiveCell.FormulaR1C1 = "DVMA"
Range("A1:I17428").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ProfilRA
Selection.AutoFilter Field:=2, Criteria1:=periodicite
Selection.AutoFilter Field:=3, Criteria1:=Typeamortissement

'pour spread E1:E18369
'pour TAN G
'pour dvma I


Columns("D😀").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("BZ1").Select
ActiveSheet.Paste

Worksheets("Traitement").Select

Columns("E:E").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("CC1").Select
ActiveSheet.Paste



MsgBox ("Données crédits taux révisable importées avec succès")



Worksheets("Traitement").Select



Columns("G:G").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("CF1").Select
ActiveSheet.Paste



MsgBox ("Données crédits taux fixe importées avec succès")

Worksheets("Traitement").Select

Columns("I:I").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("CI1").Select
ActiveSheet.Paste


MsgBox ("DVMA importées avec succès.")



Worksheets("Traitement").Select

Rows("1:29").Select
Selection.Delete Shift:=xlUp

Range("A😀D").Select
Range("E16").Activate
Selection.Clear
Range("C9").Select
Worksheets("TCI crédit").Select


GetData "S:\DCG\DCG_Commun\CNCE-Rac\Barèmes\2009\" & NomFichier2, "CT_CAP", _
"B5:M17333", Sheets("Traitement").Range("A1"), True, False

Worksheets("Traitement").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "b"
Range("C1").Select
ActiveCell.FormulaR1C1 = 0.01
Range("D1").Select
ActiveCell.FormulaR1C1 = 0.015
Range("E1").Select
ActiveCell.FormulaR1C1 = 0.02
Range("F1").Select
ActiveCell.FormulaR1C1 = 0.025
Range("G1").Select
ActiveCell.FormulaR1C1 = 0.03
Range("H1").Select
ActiveCell.FormulaR1C1 = 0.035
Range("I1").Select
ActiveCell.FormulaR1C1 = 0
Range("J1").Select
ActiveCell.FormulaR1C1 = 0.005
Range("K1").Select
ActiveCell.FormulaR1C1 = 0.04
Range("L1").Select
ActiveCell.FormulaR1C1 = 0.045
Range("A1:L17428").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ProfilRA
Selection.AutoFilter Field:=2, Criteria1:=Typeamortissement

Columns("C:L").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("TCI crédit").Select
Range("CL1").Select
ActiveSheet.Paste

Range("CL1").Select
Application.CutCopyMode = False
Columns("CR:CR").Select
Selection.Copy
Columns("CL:CL").Select
Selection.Insert Shift:=xlToRight
Columns("CS:CS").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Selection.Copy
Columns("CM:CM").Select
Selection.Insert Shift:=xlToRight
Columns("CT:CT").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("AK1").Select

MsgBox ("Coût des CAP importé avec succès.")


Worksheets("TCI crédit").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = NomFichier



Worksheets("TCI crédit").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = ProfilRA
Range("B4").Select
ActiveCell.FormulaR1C1 = periodicite
Range("B5").Select
ActiveCell.FormulaR1C1 = Typeamortissement

Worksheets("TCI crédit").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = NomFichier1



Worksheets("TCI crédit").Select
Range("C3").Select
ActiveCell.FormulaR1C1 = ProfilRA
Range("C4").Select
ActiveCell.FormulaR1C1 = periodicite
Range("C5").Select
ActiveCell.FormulaR1C1 = Typeamortissement



Worksheets("TCI crédit").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = NomFichier2



Worksheets("TCI crédit").Select
Range("D3").Select
ActiveCell.FormulaR1C1 = ProfilRA
Range("D4").Select
ActiveCell.FormulaR1C1 = periodicite
Range("D5").Select
ActiveCell.FormulaR1C1 = Typeamortissement



Fin:
Worksheets("Traitement").Select

Rows("1:29").Select
Selection.Delete Shift:=xlUp

Range("A😀D").Select
Range("E16").Activate
Selection.Clear
Range("C9").Select
Worksheets("TCI crédit").Select



End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
389
AlineJ
A
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
565
mikeduff
M
ARaul
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
977
TooFatBoy
TooFatBoy
Dudu2
  • Résolu(e)
XL 2021 VBA - Comment transformer un classeur enregistré en classeur non enregistré
2 3
Réponses
34
Affichages
1 K
patricktoulon
patricktoulon
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
733
PHIL37
P
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
465
NONO14
N
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
jeff1494
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
chris6999
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
411
chris6999
chris6999
gsx-air
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
874
gsx-air
gsx-air
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
3 K
sylvanu
sylvanu
scoobytor
  • Résolu(e)
XL 2021 Report de lignes d'un onglet à un autre en conservant format et recopie des commentaires
Réponses
9
Affichages
278
scoobytor
scoobytor
P
  • Question Question
Microsoft 365 Copier coller une feuille dans le même classeur contenant des shapes
Réponses
2
Affichages
415
Eric KERGRESSE
E
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
462
farid
F
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
721
gui22
G
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
913
phoceenjo
P
S
  • Résolu(e)
Microsoft 365 Copier automatiquement sur une ligne sur une autre feuille si la date est supérieur à une date définie
2
Réponses
17
Affichages
2 K
S.J
S
C
  • Résolu(e)
XL 2021 Duplication d'onglets dans un nouveau fichier et enregistrement selon une cellule donnée
Réponses
7
Affichages
626
wDog66
W
anthoYS
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
1 K
crocrocro
C
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
803
robpellan52
R
Retour