Alleger du code...

C

choupi_nette

XLDnaute Occasionnel
Bonjour,
Je voudrai savoir si l'un d'entre vous saurait comment alleger ce code?
merci

Sub Macro1()
Application.ScreenUpdating = False

Sheets("CDNA_layout").Cells.ClearContents
Sheets("Primer_layout").Cells.ClearContents
Sheets("layout").Cells.ClearContents
Sheets("bilan").Cells.ClearContents
Sheets("SDS_file").Cells.ClearContents
CDNAposition = 1
compteur384 = 1
primer_pos = 1
Source_cDNA_Well = 1
Dest_well_cDNA = 1
Source_BC_pos_primer = 1
Dest_well_Primers = 1
row2 = 2
row3 = 1
Row = 1
col = 1


Sheets("CDNA_PRIMER").Select
Range("A1").End(xlDown).Select
cdnarow = ActiveCell.Row
cdnanumb = cdnarow - 1
Range("B1").End(xlDown).Select
primerrow = ActiveCell.Row
primernumb = primerrow - 1
nombredecases = cdnanumb * primernumb

Range("I4").Select
reporter = ActiveCell.Value
Range("I1").Select
vol_CDNA = ActiveCell.Value
Range("I2").Select
Vol_primer_mix = ActiveCell.Value
Range("H19").Select
Source_pos_cDNA = ActiveCell.Value
Range("H12").Select
Source_BC_primer = ActiveCell.Value
Range("I3").Select
Dest_pos_cDNA = ActiveCell.Value


If nombredecases > 128 Then
MsgBox ("ERROR there are too many samples/ Primer")
GoTo LAFIN
End If


For I = 2 To cdnanumb + 1
CDNA_name = "A" & I
Range(CDNA_name).Select
CDNA_name = ActiveCell.Value

For J = 2 To primernumb + 1
primer_name = "B" & J
Range(primer_name).Select
primer_name = ActiveCell.Value

CDNAPRIMER = CDNA_name & "_" & primer_name
For l = 1 To 3

Sheets("bilan").Select

Cells(row2, 1).Select
ActiveCell.Value = Source_pos_cDNA
Range("A1").Select
ActiveCell.Value = "Source_pos_cDNA"
Cells(row2, 2).Select
ActiveCell.Value = CDNA_name
Range("B1").Select
ActiveCell.Value = "CDNA_name"
Cells(row2, 3).Select
ActiveCell.Value = Source_cDNA_Well
Range("C1").Select
ActiveCell.Value = "Source_cDNA_Well"
Cells(row2, 4).Select
ActiveCell.Value = vol_CDNA
Range("D1").Select
ActiveCell.Value = "vol_cDNA"
Cells(row2, 5).Select
ActiveCell.Value = Dest_pos_cDNA
Range("E1").Select
ActiveCell.Value = "Dest_pos_cDNA"
Cells(row2, 6).Select
ActiveCell.Value = Dest_well_cDNA
Range("F1").Select
ActiveCell.Value = "Dest_well_cDNA"
Cells(row2, 7).Select
ActiveCell.Value = Source_BC_primer
Range("G1").Select
ActiveCell.Value = "Source_BC_primer"
Cells(row2, 8).Select
ActiveCell.Value = primer_name
Range("H1").Select
ActiveCell.Value = "primer_name"
Cells(row2, 9).Select
ActiveCell.Value = Source_BC_pos_primer
Range("I1").Select
ActiveCell.Value = "Source_BC_pos_primer"
Cells(row2, 10).Select
ActiveCell.Value = Vol_primer_mix
Range("J1").Select
ActiveCell.Value = "Vol_primer_mix"
Cells(row2, 11).Select
ActiveCell.Value = Dest_well_Primers
Range("K1").Select
ActiveCell.Value = "Dest_well_Primers"

Source_BC_pos_primer = Source_BC_pos_primer + 1

Sheets("SDS_file").Select
Range("A1").Select
ActiveCell.Value = "*** SDS Setup File Version"
Range("A2").Select
ActiveCell.Value = "*** Output Plate Size"
Range("A3").Select
ActiveCell.Value = "*** Output Plate ID"
Range("A4").Select
ActiveCell.Value = "*** Number of Detectors"
Range("B1").Select
ActiveCell.Value = "3"
Range("B2").Select
ActiveCell.Value = "384"
Range("B3") = Sheets("CDNA_Primer").Range("I5")
Range("B4").Select
ActiveCell.Value = primernumb
Range("A5").Select
ActiveCell.Value = "Detector"
Range("B5").Select
ActiveCell.Value = "Reporter"
Range("C5").Select
ActiveCell.Value = "Quencher"
Range("D5").Select
ActiveCell.Value = "Description"
Range("E5").Select
ActiveCell.Value = "Comments"
Sheets("CDNA_PRIMER").Range("B2:B" & Sheets("CDNA_PRIMER").Range("B65536").End(xlUp).Row).Copy
Range("A6").PasteSpecial xlPasteValues
Application.CutCopyMode = False

For Each c In Range("A6", [A65000].End(xlUp))
c.Offset(0, 1) = Sheets("CDNA_PRIMER").Range("I4")
Next
Sheets("layout").Select
Cells(Row, col).Range("A2").Select
ActiveCell.Value = CDNAPRIMER
Range("A1:X1").Select
Selection.Merge
Range("A1:X1").Select
ActiveCell.FormulaR1C1 = "cDNA+Primers"
Columns("A:X").EntireColumn.AutoFit

Sheets("CDNA_layout").Select
Cells(Row, col).Range("A2").Select
ActiveCell.Value = CDNA_name
Range("A1:X1").Select
Selection.Merge
Range("A1:X1").Select
ActiveCell.FormulaR1C1 = "cDNA Plate"


Sheets("Primer_layout").Select
Cells(Row, col).Range("A2").Select
ActiveCell.Value = primer_name
Range("A1:X1").Select
Selection.Merge
Range("A1:X1").Select
ActiveCell.FormulaR1C1 = "Primer Plate"
Sheets("CDNA_PRIMER").Select
Dest_well_cDNA = Dest_well_cDNA + 1
Dest_well_Primers = Dest_well_Primers + 1
col = col + 1
If col > 24 Then
col = 1
Row = Row + 1
End If
row2 = row2 + 1
row3 = Range("B4").Value
Next l
Next J
Source_cDNA_Well = Source_cDNA_Well + 12
If Source_cDNA_Well = 97 Then Source_cDNA_Well = 2
If Source_cDNA_Well = 98 Then Source_cDNA_Well = 3
If Source_cDNA_Well = 99 Then Source_cDNA_Well = 4
If Source_cDNA_Well = 100 Then Source_cDNA_Well = 5
If Source_cDNA_Well = 101 Then Source_cDNA_Well = 6
If Source_cDNA_Well = 102 Then Source_cDNA_Well = 7
If Source_cDNA_Well = 103 Then Source_cDNA_Well = 8
If Source_cDNA_Well = 104 Then Source_cDNA_Well = 9
If Source_cDNA_Well = 105 Then Source_cDNA_Well = 10
If Source_cDNA_Well = 106 Then Source_cDNA_Well = 11
If Source_cDNA_Well = 107 Then Source_cDNA_Well = 12

Next I

Application.ScreenUpdating = True
Sheets("SDS_file").Select
LAFIN:
Application.Run "part2"
End Sub
Sub part2()
Dim Ligne As Long
Sheets("SDS_file").Select
Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(Ligne, "A").Resize(1, 5) = Array("Well", "Sample Name", "Detector", "Task", "Quantity")
Cells(Ligne + 1, "A") = "1"
Cells(Ligne + 1, "D").Resize(1, 2) = Array("UNKN", 0)
Cells(Ligne + 1, "A").AutoFill Range(Cells(Ligne + 1, "A"), Cells(Ligne + 384, "A")), Type:=xlFillSeries
Cells(Ligne + 1, "D").Resize(1, 2).AutoFill Range(Cells(Ligne + 1, "D").Resize(1, 2), Cells(Ligne + 384, "D").Resize(1, 2)), Type:=xlFillCopy
Sheets("bilan").Range("B2:B385").Copy
Sheets("SDS_file").Select
Cells(Ligne + 1, "B").PasteSpecial xlPasteValues
Sheets("bilan").Range("H2:H385").Copy
Sheets("SDS_file").Select
Cells(Ligne + 1, "C").PasteSpecial xlPasteValues
ActiveWorkbook.Save
Application.Run "export"
End Sub

Sub export()
Sheets("bilan").Select
rep = ActiveWorkbook.Path & "\"
Sheets("Bilan").Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs rep & "Biomek_file.csv", FileFormat:=xlCSVMSDOS
.Close True
End With
Sheets("SDS_file").Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs rep & "SDS_file" & ".txt", xlTextMSDOS
.Close True
Application.DisplayAlerts = True
End With
Workbooks.OpenText Filename:=rep & "Biomek_file.csv"
ActiveWorkbook.Save
ActiveWorkbook.Close True
End Sub
Cliquez pour agrandir...
 
Trier par date Trier par votes
Grand Chaman Excel

Grand Chaman Excel

XLDnaute Impliqué
Re : Alleger du code...

Bonjour chopi_nette,

J'ai fait une passe rapide dans ton code. Comme je ne peux pas tester, à toi de vérifier.
Conseil : éviter d'utiliser les .Select, ça ralentit ta macro et alourdi ton code. Tu n'es pas obligé de sélectionner une feuille et une cellule pour lui assigner une valeur

Au lieu de :
Sheet("BBB").Select
Range("A1").Select
ActiveCell.value = "AAA"

Utilise :
Sheets("BBB").Range("A1") = "AAA"

VB: 
Sub Macro1()
Application.ScreenUpdating = False

Sheets("CDNA_layout").Cells.ClearContents
Sheets("Primer_layout").Cells.ClearContents
Sheets("layout").Cells.ClearContents
Sheets("bilan").Cells.ClearContents
Sheets("SDS_file").Cells.ClearContents
CDNAposition = 1
compteur384 = 1
primer_pos = 1
Source_cDNA_Well = 1
Dest_well_cDNA = 1
Source_BC_pos_primer = 1
Dest_well_Primers = 1
row2 = 2
row3 = 1
Row = 1
col = 1


cdnarow = Sheets("CDNA_PRIMER").Range("A1").End(xlDown).Row
cdnanumb = cdnarow - 1
primerrow = Range("B1").End(xlDown).Row
primernumb = primerrow - 1
nombredecases = cdnanumb * primernumb

reporter = Range("I4")
vol_CDNA = Range("I1")
vol_primer_mix = Range("I2")
source_pos_cdna = Range("H19")
source_BC_primer = Range("H12")
dest_pos_cDNA = Range("I3")

If nombredecases > 128 Then
MsgBox ("ERROR there are too many samples/ Primer")
GoTo LAFIN
End If


For I = 2 To cdnanumb + 1
CDNA_name = "A" & I
Range(CDNA_name).Select
CDNA_name = ActiveCell.Value

For J = 2 To primernumb + 1
primer_name = "B" & J
Range(primer_name).Select
primer_name = ActiveCell.Value

CDNAPRIMER = CDNA_name & "_" & primer_name
For l = 1 To 3

Sheets("bilan").Select

Cells(row2, 1) = source_pos_cdna
Range("A1") = "Source_pos_cDNA"
Cells(row2, 2) = CDNA_name
Range("B1") = "CDNA_name"
Cells(row2, 3) = Source_cDNA_Well
Range("C1") = "Source_cDNA_Well"
Cells(row2, 4) = vol_CDNA
Range("D1") = "vol_cDNA"
Cells(row2, 5) = dest_pos_cDNA
Range("E1") = "Dest_pos_cDNA"
Cells(row2, 6) = Dest_well_cDNA
Range("F1") = "Dest_well_cDNA"
Cells(row2, 7) = source_BC_primer
Range("G1") = "Source_BC_primer"
Cells(row2, 8) = primer_name
Range("H1") = "primer_name"
Cells(row2, 9) = Source_BC_pos_primer
Range("I1") = "Source_BC_pos_primer"
Cells(row2, 10) = vol_primer_mix
Range("J1") = "Vol_primer_mix"
Cells(row2, 11) = Dest_well_Primers
Range("K1") = "Dest_well_Primers"

Source_BC_pos_primer = Source_BC_pos_primer + 1

Sheets("SDS_file").Select
Range("A1") = "*** SDS Setup File Version"
Range("A2") = "*** Output Plate Size"
Range("A3") = "*** Output Plate ID"
Range("A4") = "*** Number of Detectors"
Range("B1") = "3"
Range("B2") = "384"
Range("B3") = Sheets("CDNA_Primer").Range("I5")
Range("B4") = primernumb
Range("A5") = "Detector"
Range("B5") = "Reporter"
Range("C5") = "Quencher"
Range("D5") = "Description"
Range("E5") = "Comments"
Sheets("CDNA_PRIMER").Range("B2:B" & Sheets("CDNA_PRIMER").Range("B65536").End(xlUp).Row).Copy
Range("A6").PasteSpecial xlPasteValues
Application.CutCopyMode = False

For Each c In Range("A6", [A65000].End(xlUp))
c.Offset(0, 1) = Sheets("CDNA_PRIMER").Range("I4")
Next
Sheets("layout").Select
Cells(Row, col).Range("A2") CDNAPRIMER
Range("A1:X1").Select
Selection.Merge
Range("A1:X1").Select
ActiveCell.FormulaR1C1 = "cDNA+Primers"
Columns("A:X").EntireColumn.AutoFit

Sheets("CDNA_layout").Select
Cells(Row, col).Range("A2").Select
ActiveCell.Value = CDNA_name
Range("A1:X1").Select
Selection.Merge
Range("A1:X1").Select
ActiveCell.FormulaR1C1 = "cDNA Plate"


Sheets("Primer_layout").Select
Cells(Row, col).Range("A2").Select
ActiveCell.Value = primer_name
Range("A1:X1").Select
Selection.Merge
Range("A1:X1").Select
ActiveCell.FormulaR1C1 = "Primer Plate"
Sheets("CDNA_PRIMER").Select
Dest_well_cDNA = Dest_well_cDNA + 1
Dest_well_Primers = Dest_well_Primers + 1
col = col + 1
If col > 24 Then
col = 1
Row = Row + 1
End If
row2 = row2 + 1
row3 = Range("B4").Value
Next l
Next J
Source_cDNA_Well = Source_cDNA_Well + 12
Select Case Source_cDNA_Well
    Case 97 To 102
        Source_cDNA_Well = Source_cDNA_Well - 95
    Case Else
End Select

' Remplacé par Select case
'If Source_cDNA_Well = 97 Then Source_cDNA_Well = 2
'If Source_cDNA_Well = 98 Then Source_cDNA_Well = 3
'If Source_cDNA_Well = 99 Then Source_cDNA_Well = 4
'If Source_cDNA_Well = 100 Then Source_cDNA_Well = 5
'If Source_cDNA_Well = 101 Then Source_cDNA_Well = 6
'If Source_cDNA_Well = 102 Then Source_cDNA_Well = 7
'If Source_cDNA_Well = 103 Then Source_cDNA_Well = 8
'If Source_cDNA_Well = 104 Then Source_cDNA_Well = 9
'If Source_cDNA_Well = 105 Then Source_cDNA_Well = 10
'If Source_cDNA_Well = 106 Then Source_cDNA_Well = 11
'If Source_cDNA_Well = 107 Then Source_cDNA_Well = 12

Next I

Application.ScreenUpdating = True
Sheets("SDS_file").Select
LAFIN:
Application.Run "part2"
End Sub
Sub part2()
Dim Ligne As Long
Ligne = Sheets("SDS_file").Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(Ligne, "A").Resize(1, 5) = Array("Well", "Sample Name", "Detector", "Task", "Quantity")
Cells(Ligne + 1, "A") = "1"
Cells(Ligne + 1, "D").Resize(1, 2) = Array("UNKN", 0)
Cells(Ligne + 1, "A").AutoFill Range(Cells(Ligne + 1, "A"), Cells(Ligne + 384, "A")), Type:=xlFillSeries
Cells(Ligne + 1, "D").Resize(1, 2).AutoFill Range(Cells(Ligne + 1, "D").Resize(1, 2), Cells(Ligne + 384, "D").Resize(1, 2)), Type:=xlFillCopy
Sheets("bilan").Range("B2:B385").Copy
Sheets("SDS_file").Cells(Ligne + 1, "B").PasteSpecial xlPasteValues
Sheets("bilan").Range("H2:H385").Copy
Sheets("SDS_file").Cells(Ligne + 1, "C").PasteSpecial xlPasteValues
ActiveWorkbook.Save
Application.Run "export"
End Sub

Sub export()
Sheets("bilan").Select
rep = ActiveWorkbook.Path & "\"
Sheets("Bilan").Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs rep & "Biomek_file.csv", FileFormat:=xlCSVMSDOS
.Close True
End With
Sheets("SDS_file").Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs rep & "SDS_file" & ".txt", xlTextMSDOS
.Close True
Application.DisplayAlerts = True
End With
Workbooks.OpenText Filename:=rep & "Biomek_file.csv"
ActiveWorkbook.Save
ActiveWorkbook.Close True
End Sub

A+
 
Vote positif 0 Vote négatif
Gorfael

Gorfael

XLDnaute Barbatruc
Re : Alleger du code...

Salut choupi_nette et le forum
Je voudrais savoir si l'un d'entre vous saurait comment alleger ce code ?
Cliquez pour agrandir...
On pourrait réduire ton code, mais ça ne résoudrait que cette macro, alors que si on te donne des pistes, tu pourra réduire facilement tous tes codes !
Code: 
Range("I4").Select
reporter = 
ActiveCell.Value
Range("I1").Select
vol_CDNA = ActiveCell.Value
tu sélectionnnes une cellule pour attribuer sa valeur à une variable. Pourquoi perdre du temps et du code ?
Code: 
reporter = Range("I4").Value
vol_CDNA = Range("I1")
Le ".value" étant la propiété par défaut, le mettre ou ne modifie rien.
Code: 
Sheets("CDNA_PRIMER").Select
Range("A1").End(xlDown).Select
     cdnarow = ActiveCell.Row
     cdnanumb = cdnarow - 1
Range("B1").End(xlDown).Select
    primerrow = ActiveCell.Row
    primernumb = primerrow - 1
    nombredecases = cdnanumb * primernumb
On peut faire la même chose, mais toujours pareil : pourquoi sélectionner une feuille ? Ce n'est nullement nécessaire. tout dépend de la feuille que tu veux visible en final.
Code: 
With Sheets("CDNA_PRIMER")
    cdnarow = .Range("A1").End(xlDown).Row
    cdnanumb = cdnarow - 1
    primerrow = .Range("B1").End(xlDown).Row
    primernumb = primerrow - 1
End With
nombredecases = cdnanumb * primernumb
".Range(..." dit qu'il faut attribuer le préfixe attribuer par le With, ce qui revient à écrire
Code: 
cdnarow = Sheets("CDNA_PRIMER").Range("A1").End(xlDown).Row
cdnanumb = cdnarow - 1
primerrow = Sheets("CDNA_PRIMER").Range("B1").End(xlDown).Row
primernumb = primerrow - 1
 
nombredecases = cdnanumb * primernumb
mais en plus court :p. Le fait de ne plus utiliser les "select" ne fait pas que réduire le code, mais réduit aussi le temps de traitement et rend pratiquement inutile le blocage du rafraîchissement écran. Par contre, il faut se rappeler que la page et la cellule active reste les mêmes que celles qui l'étaient avant la macro.
A+

PS : Je ne modifie pas les codes dont je n'ai aucune idée de l'algorythme. Certains codes ne me plaisent pas, comme "Range("A1").End(xlDown)." qui a des réponses différentes en fonction du remplissage de A1 et A2 => je préfère "Cells(Rows.count,"A").End(xlUp)" qui me donne plus sûrement la dernière ligne non vide en A (étant plus certain que la dernière et l'avant-dernière sont vides).
 
Dernière édition:
Vote positif 0 Vote négatif
Jam

Jam

XLDnaute Accro
Re : Alleger du code...

Salut choupi_nette, gorfael, grand chaman excel,

Pour compléter ce que t'ont déjà indiqué gorfael et grand chaman excel:

D'abord la base: Déclarer ses variables, ça rend plus lisible le code, ca diminue le nombre d'erreur, ca accélère les traitement. Bref, impératif.
Pour ce faire, aller dans l'éditeur VBE menu Outils>Options et cocher la case Déclaration des variables obligatoire. Ça rajoute l'instruction Option Explicit en en-tête de module et oblige la déclaration des variables provoquant une erreur de pré-compilation.
Eviter d'utiliser des noms de variables tendancieux comme Row.

Relire son code, comme ici (je suis pas certain d'avoir tout compris ce que tu cherchais à faire ici):
VB: 
Sub export()
Sheets("bilan").Select
rep = ActiveWorkbook.Path & "\"
Sheets("Bilan").Copy                 '<--- A quoi ça sert ?
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs rep & "Biomek_file.csv", FileFormat:=xlCSVMSDOS
.Close True
End With
Sheets("SDS_file").Copy             '<--- A quoi ça sert ?
With ActiveWorkbook
Application.DisplayAlerts = False  '<--- Déjà fait 6 lignes plus haut
.SaveAs rep & "SDS_file" & ".txt", xlTextMSDOS
.Close True
Application.DisplayAlerts = True  '<-- Mettre après le End With, ca rendra le code plus clair
End With
Workbooks.OpenText Filename:=rep & "Biomek_file.csv"
ActiveWorkbook.Save
ActiveWorkbook.Close True
End Sub

Eviter d'utiliser les Goto sauf dans la gestion d'erreur. Il s'agit de "vieux" reste de l'ancien Basic procédurale.

Contrairement à ce que t'a indiqué Grand_Chaman, il vaut mieux préférer un If...Then qu'un Select...Case en règle générale et surtout ici:
VB: 
Source_cDNA_Well = Source_cDNA_Well + 12
Select Case Source_cDNA_Well
    Case 97 To 102
        Source_cDNA_Well = Source_cDNA_Well - 95
    Case Else
End Select
en 1 ligne
VB: 
If Source_cDNA_Well + 12>=97 And Source_cDNA_Well + 12<=102 Then Source_cDNA_Well = Source_cDNA_Well - 95

ou encore (là tu t'es torturé l'esprit :p)

VB: 
For I = 2 To cdnanumb + 1
CDNA_name = "A" & I
Range(CDNA_name).Select
CDNA_name = ActiveCell.Value
en
VB: 
For I = 2 To cdnanumb + 1
CDNA_name=Range("A" & I)
...

Voilà quelques sujets à étudier.
Bon courage, et si tu as d'autres questions de ce type, n'hésite pas :cool:
 
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
221
Compte Supprimé 979
C
Z
  • Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
916
onobyone
O
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
199
Francky79
F
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
353
dadu35
D
D
  • Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
233
fanch55
fanch55
M
  • Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
111
marie3107
M
M
  • Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
172
marie3107
M
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
692
mapomme
mapomme
D
  • Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
495
Dudy
D
S
  • Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
432
snoopy07
S

Membres actuellement en ligne

11 membres et 108 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 331
Messages
2 087 353
Membres
103 528
dernier inscrit
hplus