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 !

MASSJIPE

XLDnaute Impliqué
Bonjour
je cherche un code pour copier des cellules d'une feuille et coller sur autre feuille à la ligne
le classeur est fait avec 2 feuilles vierge et suivi
La feuille vierge reste comme le nom l'indique après que la macro à fait son job
Copier dans cette feuille (vierge)
Cellule F3 F4 F7 R7 F8 G13
Coller dans la feuille suivi (case jaune) à la ligne car d'autre blocage peut être crée

Après la macro fait ceci
Sub Créationfeuilblocage()
ThisWorkbook.ActiveSheet.Copy
ActiveSheet.Name = Range("F3")
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\" & ActiveSheet.Name & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Merci
 

Pièces jointes

Re : Aide pour VBA

Bonjour à tous

MASSJIPE: EDITION: ajout macro pour recopie
Code VBA:
Sub Copie_De_VIERGE_vers_SUIVI()
'Déclarations variables
Dim adrCellACopier, adrCellDestination, dl&, i As Byte
'Arrays avec adresses des cellules concernées
adrCellACopier = Array("F3", "F4", "F7", "R7", "F8", "G13")
adrCellDestination = Array("A", "D", "E", "F", "G", "H")
'recopie des valeurs (seules sans le format) , choisies de la feuille vierge vers la feuille suivi
With Sheets("suivi")
dl = .Range("A65536").End(xlUp).Row + 1
For i = LBound(adrCellACopier) To UBound(adrCellACopier)
.Range(CStr(adrCellDestination(i)) & dl).Value = Sheets("vierge").Range(adrCellACopier(i)).Value
Next i
End With
End Sub


Essaies ton code ainsi modifié (pour ce qui est de la création d'une feuille)
Code vba:
Sub CréationfeuilblocageII()
Dim NomNouvelleFeuille$, Chemin$, NomFichier$
NomNouvelleFeuille = ActiveSheet.Range("F3").Text
ThisWorkbook.ActiveSheet.Copy
ActiveSheet.Name = NomNouvelleFeuille
Chemin = "C:\Users\jean-paul\Desktop\"
NomFichier = Chemin & ActiveSheet.Name & ".xls"
ActiveWorkbook.SaveAs NomFichier
End Sub
 
Dernière édition:
Re : Aide pour VBA

Bonsoir à tous

MASSJIPE
Quelle est ta version d'Excel? EXCEL 2003 ?
A tout hasard, essaies avec les modifs ci-dessous
Code vba:
Sub Traitement()
Application.ScreenUpdating = False
Copie_De_VIERGE_vers_SUIVI
CreationFeuilBlocageIII
Application.ScreenUpdating = True
End Sub

Code VBA:
Private Sub Copie_De_VIERGE_vers_SUIVI()
'Déclarations variables
Dim adrCellACopier, adrCellDestination, dl&, i As Byte
'Arrays avec adresses des cellules concernées
adrCellACopier = Array("F3", "F4", "F7", "R7", "F8", "G13")
adrCellDestination = Array("A", "D", "E", "F", "G", "H")
'recopie des valeurs (seules sans le format) , choisies de la feuille vierge vers la feuille suivi
With Sheets("suivi")
dl = .Range("A65536").End(xlUp).Row + 1
For i = LBound(adrCellACopier) To UBound(adrCellACopier)
.Range(CStr(adrCellDestination(i)) & dl).Value = Sheets("vierge").Range(adrCellACopier(i)).Value
Next i
End With
End Sub

Code VBA:
Private Sub CreationFeuilBlocageIII()
Dim NomNouvelleFeuille$, Chemin$, NomFichier$
NomNouvelleFeuille = ActiveSheet.Range("F3").Text
ThisWorkbook.ActiveSheet.Copy
ActiveSheet.Name = NomNouvelleFeuille
Chemin = "C:\Users\jean-paul\Desktop\"
NomFichier = Chemin & ActiveSheet.Name & ".xlsm"
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=52
End Sub
 
- 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

Discussions similaires

Réponses
4
Affichages
461
Réponses
20
Affichages
872
Réponses
9
Affichages
580
Réponses
22
Affichages
1 K
Retour