'sélection d'une feuille Sheets("NomDeLaFeuille").Select 'sélection d'une cellule Range("A1).Select 'Ouverture d'un autre fichier Excel ChDir "Chemin du repertoire du fichier" Workbooks.Open Filename:="Chemin du repertoire du fichier\fichier.xls " 'Fermeture d'un fichier ActiveWindow.Close pour fermer le fichier en cours 'Ou Workbooks.Close Filename:="Chemin du repertoire du fichier\fichier.xls "
'Parcourir les lignes i = 1 Sheets("Base").Select While Not Range("A" & i & "").Value = "" i = i + 1 Wend '=> Permet de se placer sur la première ligne vide 'Parcourir les colonnes While Cells(1, i) <> "" i = i + 1 Wend 'permet de trouver la lettre associée au chiffre pour la colonne NumCol = Cells(1, i).Column lettre = IIf(NumCol > 26, Chr(64 + NumCol \ 26) & Chr(64 + NumCol Mod 26), Chr(64 + NumCol)) '=> Se place sur la première colonne vide
Range("A3:Z3").Select 'sélection de la ligne contenant la formule Selection.AutoFill Destination:=Range("A3:Z" & i - 1 & ""), Type:=xlFillDefault Range("A3:Z" & i - 1 & "").Select
ActiveSheet.ChartObjects("Graphique 3").Activate ActiveChart.SeriesCollection(3).Select ActiveChart.SeriesCollection(3).XValues = "='% Nom classeur?!R4C1:R" & i & "C1" ActiveChart.SeriesCollection(1).XValues = "='% Nom classeur?!R4C1:R" & i & "C1" ActiveChart.SeriesCollection(2).XValues = "='% Nom classeur?!R4C1:R" & i & "C1" ActiveChart.SeriesCollection(3).Values = "='% Nom classeur?!R4C5:R" & i & "C5" ActiveChart.SeriesCollection(2).Select ActiveChart.SeriesCollection(2).Values = "='% Nom classeur?!R4C7:R" & i & "C7" ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Values = "='% Nom classeur?!R4C3:R" & i & "C3"
'redimensionnement des cellules Rows("2:" & i & "").Select Selection.RowHeight = 25 Range("A1:H1").Select
' on s'occupe des bordures du tableau Range("B3:H" & i & "").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With
nb = Range("B" & i & "").Value Sheets("nb rebut").Select Range("C" & j & "").Value = nb
Rows("4:4").Select Selection.Delete Shift:=xlUp ' pour supprimer Rows("5:5").Select Selection.Insert Shift:=xlDown ' pour insérer
Publié par tof008. Dernière mise à jour le par pijaku.
Ce document intitulé « [vba excel] aide aux débutants, quelques morceaux de codes » issu de CodeS-SourceS (https://codes-sources.commentcamarche.net/) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Actualités, Avis de décès, Carte de voeux, Bricolage, Coloriages, Cinéma, Coiffure, Cuisine, Déco, Dictionnaire, Horoscope, Jeux en ligne, Programme TV, Recettes, Restaurant, SMIC, Test débit, Voyage, Signification prénom