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

Mise en forme dans un fichier fermé

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Phil76
  • Date de début Date de début

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
P

Phil76

Guest
Bonjour à tous.

Avec l'aide du forum, je suis parvenu à exporter des informations d'un fichier ouvert vers un fichier fermé.
Il me reste un petit problème à régler :
Dans le fichier fermé, les données se recopient verticalement alors que je les voudrais horizontalement.

Les données sont dabord synthétisées sur la feuil2 avant d'être coopiées vers le fichier fermé.

D'avance merci à tous
 

Pièces jointes

Trier par date Trier par votes
Re : Mise en forme dans un fichier fermé

Bonjour à tous,

Je n'ai compris la demande mais pour tes codes :

Tu as
VB: 
Private Sub CheckBox21_Click()
    If CheckBox21 = True Then
        Range("E4").Select
        ActiveCell.FormulaR1C1 = 1
    End If
    If CheckBox21 = False Then
        Range("E4").Select
        ActiveCell.FormulaR1C1 = ""
    End If
End Sub
Tu peux mettre :
VB: 
Private Sub CheckBox21_Click()
    If CheckBox21 = True Then Range("E4") = 1
    If CheckBox21 = False Then Range("E4") = ""
    End Sub
ou :
VB: 
Private Sub CheckBox21_Click()
    Range("E4") = IIf(CheckBox21 = True, 1, 0)
End Sub
A + à tous
 
Vote positif 0 Vote négatif
Re : Mise en forme dans un fichier fermé

Bonjour,
tout dabord, merci pour la simplification du code.
Pour le reste : Je veux copier les infos contenues dans la feuil2 ligne 2, dans le fichier fermé TestAdo.xls.
Le module 1 fait cela tres bien, mais au final dans le fichier TestAdo, les données sont copiées verticalement alors que je les veux horizontalement.
Merci encore à toi pour ta première réponse.
 
Vote positif 0 Vote négatif
Re : Mise en forme dans un fichier fermé

Bonjour,

Par de problème pour écrire dans tous les sens que l'on veut dans un fichier fermé

Principe :
- définir 2 variables DecLi et DecCol qui sont les décalages par rapport à la cellule A1 écrite Cells(1,1)
- utiliser la fonction Offset par rapport à la cellule A1 de la feuille d'arrivée
SetExternalDatas Fich, "Feuil1", Cells(1, 1).Offset(DecLi, DecCol).Address(0, 0), valeur à écrire

Dans la sub SetExternalDatas,
....
RangeDest = DestCellAdr & ":" & DestCellAdr
oCmd.CommandText = "SELECT * from `" & RangeDest & "`" <== pour gérer la cellule d'arrivée
....
'oRS.AddNew <== mettre en remarque sinon passage à la ligne suivante
__________________________________________________________________

J'ai un peu modifié ton code et je te joins le fichier corrigé
Avec les variables offset DecLi et DecCo on peut écrire dans tous les sens même en diagonale.

A noter aussi pour info, que lorsqu'il y a beaucoup de données à écrire (ce qui n'est pas ton cas), il vaut mieux copier toutes les données dans un tableau VBA, puis se connecter au fichier fermé, écrire toutes les données,puis fermer la connexion et les recordset.

Salutations
Robert
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Mise en forme dans un fichier fermé

Bonjour et Merci Herdet,
impossible de tester.
je joins ton fichier modifié avec un point d'arret sur l'erreur que cela m'occasionne. Le fichier Word est l'erreur que j'obtient.
J'ai peut etre oublié une reference dans mes options du developpeur.
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
352
patricktoulon
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
642
TooFatBoy
C
  • Résolu(e)
XL 2021 Mise en page pour imprimer un fichier trié et filtré
Réponses
3
Affichages
131
sylvanu
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
810
Cousinhub
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
321
chris
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
339
CHRIS1945
C
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
309
TooFatBoy
L
  • Question Question
XL 2021 Transformer des données verticales en horizontales et mettre à jour un graphique automatiquement
Réponses
11
Affichages
552
Leina
L
D
  • Question Question
Microsoft 365 Procédé pour appliquer un filtre qui permet de ressortir les informations a la sélection d'une information dans une colonne.
Réponses
6
Affichages
311
djidji59430
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
303
Nico Gre
N
L
  • Question Question
XL 2021 [Résolu] Tri impossible dans un tableau mis en forme
Réponses
6
Affichages
481
LOLO13130
L
N
  • Question Question
Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer
2
Réponses
19
Affichages
1 K
nikeu01
N
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
351
Piment
P
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
897
jo657
J
  • Résolu(e)
XL pour MAC Mise en forme d'un TCD
Réponses
9
Affichages
299
pilou010
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
363
Danyk01
D
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
393
job75
  • Résolu(e)
XL 2010 Mise en forme d’un graphique spécifique
Réponses
6
Affichages
260
jeanmi
F
  • Question Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
568
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…