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

comment transférer 5 cellules ?

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

tactic6

XLDnaute Impliqué
Bonsoir à tous
en suivant les conseils de Tibo j'ai réalisé un petit projet qui me tenait à coeur en je le remercie encore et encore
comme un gamin je n'en ai pas assez et je voudrais encore modifier mon petit bébé

je voudrais recopier les cellules B11:G4:I5:G7:I58 de ma feuille1
sur les cellules A2:B2:C2: D2:E2 de ma feuille 2

en fouillant un peu et en pensant rivaliser avec vous j'ai crée ceci:

Sub Transfert()
Worksheets("Feuil1").Range("B11:G4:I5:G7:I58").Copy _
Destination:=Worksheets("Feuil2").Range("A2:B2:C2: D2:E2")
End Sub

je vous voie déjà rigoler car bien sur ça ne marche pas!

si une bonne âme pouvait m'aider encore une fois ....

Merci

Edit:

je souhaiterais que les ecritures sur la feuille 2 se suivent sans ecraser les precedentes
du genre A3:B3:C3: D3:E3 puis A4:B4:C4: D4:E4 etc etc
bien sur le depart étant toujours B11:G4:I5:G7:I58 de la feuille 1
 
Dernière édition:
Trier par date Trier par votes
Re : comment transférer 5 cellules ?

re

remplace
Code: 
'Gestion des doublons
tabloFacture = F2.Range("C[B][COLOR=Red]2[/COLOR][/B]:C" & Derli).Value
par
Code: 
'Gestion des doublons
tabloFacture = F2.Range("C[B][COLOR=Red]1[/COLOR][/B]:C" & Derli).Value
@+
 
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

encore moi 😱 je crois que je vais changer de pseudo 😀

j'ai essayeé de modifier ton code afin de réaliser 2 types de sauvegarde
dans un premier dossier la feuil1
dans un deuxieme dossier la facture avec pour extension le numéro qui se trouve en I5
devine quoi ? ça marche pas 😱 tu peux me dire pourquoi stp ?
merci


Code: 
Sub SauvegardeFeuil1()
Const DossierSauvegarde As String = "D:\Données\Relevé\" ' à modifier selon l'emplacement de ton dossier
Dim AWbk As Workbook
Dim LaFin As String
Dim Nb As Byte
Dim Ext
Dim NomClasseur As String
Set AWbk = ActiveWorkbook

'nom du classeur sans l'extension
NomClasseur = Left(AWbk.Name, Len(AWbk.Name) - InStr(1, StrReverse(AWbk.Name), "."))
'extension
Ext = Right(AWbk.Name, InStr(1, StrReverse(AWbk.Name), "."))
'date et heure
LaFin = Format(Now, "dd-mm-yy hh-mm-ss")
'enregistrement de la copie
    Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs DossierSauvegarde & NomClasseur & " " & LaFin & Ext, xlExcel8 ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
Const DossierSauvegarde2 As String = "D:\Données\Facture\"
Dim AWbk As Workbook
Dim LaFin As String
Dim Nb As Byte
Dim Ext
Dim NomClasseur As String
Set AWbk = ActiveWorkbook
NomClasseur = Left(AWbk.Name, Len(AWbk.Name) - InStr(1, StrReverse(AWbk.Name), "."))
Ext = Right(AWbk.Name, InStr(1, StrReverse(AWbk.Name), "."))
Nume = F1.[H5]
Sheets("Facture").Copy
ActiveWorkbook.SaveAs DossierSauvegarde2 & NomClasseur & " " & Nume = F1.[H5] & Ext, xlExcel8 ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
If MsgBox("Ouvrir le dossier de sauvegarde ?", vbYesNo) = vbYes Then _
   Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & DossierSauvegarde, vbNormalFocus

End Sub
 
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

re
Code: 
Sub SauvegardeFeuil1()
Const DossierSauvegarde As String = ""D:\Données\Relevé\" ' à modifier selon l'emplacement de ton dossier
Const DossierSauvegarde2 As String = ""D:\Données\Facture\"
Dim AWbk As Workbook
Dim LaFin As String
Dim Ext As String
Dim NomClasseur As String
Dim Nume As String
Set AWbk = ActiveWorkbook

'nom du classeur sans l'extension
NomClasseur = Left(AWbk.Name, Len(AWbk.Name) - InStr(1, StrReverse(AWbk.Name), "."))
'extension
Ext = Right(AWbk.Name, InStr(1, StrReverse(AWbk.Name), "."))
'date et heure
LaFin = Format(Now, "dd-mm-yy hh-mm-ss")
'enregistrement des copies
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs DossierSauvegarde & NomClasseur & " " & LaFin & Ext [COLOR=Red]', xlExcel8 ' tu peux supprimer xlExcel8[/COLOR]
ActiveWorkbook.Close
Nume = [Facture!J6] [COLOR=Red] ' vérifie j'ai mis J6[/COLOR]
Sheets("Facture").Copy
ActiveWorkbook.SaveAs DossierSauvegarde2 & NomClasseur & " " & [COLOR=Navy]Nume[/COLOR] & Ext [COLOR=Red]', xlExcel8  ' tu peux supprimer xlExcel8[/COLOR]
ActiveWorkbook.Close
'If MsgBox("Ouvrir le dossier de sauvegarde ?", vbYesNo) = vbYes Then _
   Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & ""D:\Données\", vbNormalFocus

End Sub
OK?
 
Dernière édition:
Vote positif 0 Vote négatif
Dernière édition:
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

Merci Fred
à tout hasard tu ne saurais pas mettre une barre de défilement sur le coté parce que j'ai une feuille avec + de 3000 articles et faire défiler avec la molette de la souris c'est pas ce qu'il y a de mieux 😡


edit

sur une feuille j'ai une option en olus sur ma barre de menu c'est un onglet nommé création que j'ai pas sur les autres on peut y choisir des affichage bicolores pour les lignes ...
pourquoi que sur une feuille
 
Dernière édition:
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

bonsoir

tactic6 à dit:
à tout hasard tu ne saurais pas mettre une barre de défilement sur le coté parce que j'ai une feuille avec + de 3000 articles et faire défiler avec la molette de la souris c'est pas ce qu'il y a de mieux 😡
Cliquez pour agrandir...
Je ne comprends pas 😕



tactic6 à dit:
sur une feuille j'ai une option en olus sur ma barre de menu c'est un onglet nommé création que j'ai pas sur les autres on peut y choisir des affichage bicolores pour les lignes ...
pourquoi que sur une feuille
Cliquez pour agrandir...
Il faudrait voir le code

@+
 
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

bonsoir

Code: 
à tout hasard tu ne saurais pas mettre une barre de défilement sur le coté
un ascenseur pour faire monter ou descendre la page
Code: 
Il faudrait voir le code
alors là j'en sais rien

bon app
 
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

re

Pour afficher les barres de défilement sur Excel 2007

Bouton Office / Options Excel (en bas à droite)
Rubrique Options avancées
Chapitre Afficher les Options pour ce classeur
Cocher la case Afficher la barre de défilement verticale
Cocher la case Afficher la barre de défilement horizontale


Pour tes lignes colorées, sans le code, je ne peux pas te dire " pourquoi que sur une feuille".
EDIT Je crois comprendre, tu as certainement inséré un tableau , un objet SmartArt ou un graphique.
@+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

merci
bizarrement elles étaient cochées
après les avoir décochées et recochées elles sont apparues

Microsoft Microsoft ....... quand cesseras-tu de nous surprendre

merci pour tout
 
Vote positif 0 Vote négatif
Re : comment transférer 5 cellules ?

Bonsoir a tous
je reviens vers vous pour une petite modif
la sauvegarde s'effectue sous le nom: Facture 1, Facture 2 ...
est il possible d'avoir [Nom du client (en H8) et Numero de facture (en J6)]
Merci
 
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

  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
691
tactic6
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
D
  • Question Question
XL 2019 Besoin d'aide sur diverses macros
2 3
Réponses
31
Affichages
4 K
darknigthmare
D
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
W
  • Résolu(e)
Microsoft 365 Boucle Loop infinie lors écriture dans des fichier
Réponses
7
Affichages
1 K
Staple1600
B
  • Question Question
boucle
Réponses
2
Affichages
946
BIL boud
B
A
  • Résolu(e)
XL 2010 VBA - remplissage cellules adjacentes en fonction d'une liste
2
Réponses
17
Affichages
5 K
all_yver
A
A
  • Question Question
XL 2010 Remplissage cellules adjacentes en fonction d'une liste
Réponses
7
Affichages
4 K
all_yver
A
S
  • Question Question
Comment remplir un tableau suivant la feuille ouverte
Réponses
2
Affichages
939
snoopy07
S
B
  • Question Question
Macro pour remplissage automatique avec incrémentation entre feuille excel
Réponses
4
Affichages
4 K
BET Hernat
B
L
  • Question Question
Changer de ligne sur cellules Excel avec condition ???
Réponses
8
Affichages
1 K
lematou
L
P
  • Question Question
Comparaison d'une saisie utilisateur avec un historique
Réponses
0
Affichages
962
Plukrax
P
F
  • Question Question
Test sur cellule puis copiage de cellule
2 3
Réponses
31
Affichages
4 K
fp03
F
C
  • Question Question
Comparaison de lignes excel
2
Réponses
16
Affichages
6 K
CISCO
E
  • Question Question
Comment copier les donnees d'une colonne dans une colonne vide excel ?
Réponses
6
Affichages
2 K
Tibo
P
  • Question Question
Utiliser la valeur des cellules d'une plage pour désigner une feuille précise
Réponses
2
Affichages
60 K
pericles
P
F
  • Question Question
Modification de macro pour récupération de cellules
Réponses
5
Affichages
2 K
flosauveur69
F
A
  • Question Question
incrémentation et Reset
Réponses
3
Affichages
1 K
ana
A
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…