Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide pour VBA

Créer une discussion

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

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

Trier par date Trier par votes
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:
Vote positif 0 Vote négatif
Re : Aide pour VBA

Bonsoir
Par contre j'ai un message à l'ouverture de la feuille créée
Merci
 

Pièces jointes

  • Sans titre.jpg
    16.9 KB · Affichages: 37
  • Sans titre.jpg
    16.9 KB · Affichages: 41
  • Sans titre.jpg
    16.9 KB · Affichages: 40
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

Discussions similaires

F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
461
Oneida
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
471
MarineU
M
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
142
job75
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
607
Phil69970
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
495
telemarrk
T
G
  • Question Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
540
patricktoulon
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
214
safranien
S
J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
553
Phil69970
K
  • Résolu(e)
XL 2019 Aide pour macro vba
2
Réponses
20
Affichages
872
Kev1407
K
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
584
Nadou69
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
472
Chaton77
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
  • Question Question
Microsoft 365 VBA export Excel vers Word : Bnq congé 0
Réponses
5
Affichages
727
Phil69970
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
383
BenExcel
B
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
774
INFINITY100
I
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
768
salma_hayek
S
A
  • Résolu(e)
Microsoft 365 Correction d'un code vba
2
Réponses
22
Affichages
1 K
AD95
A
M
  • Question Question
XL 2019 Code VBA pour fusionner plusieurs PDF en un seul Fichier PDF
Réponses
2
Affichages
1 K
kiki29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…