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

erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion hemardjean
  • 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

hemardjean

XLDnaute Occasionnel
Bonjour le forum

Je sollicite SVP une petite aide.

J’ai donc deux dossiers un premier avec les valeurs (colonne A et B format texte et les colonnes de C à BL en chiffres), un deuxième avec un formulaire qui va chercher les infos dans les onglets puis dans les lignes .

Le formulaire et la recherche des infos fonctionnent et se recopient bien à l’emplacement prévu sauf que certaines cellules des colonnes C à BL sont recopiées au format texte au lieu du format de départ c’est à dire en chiffres. Je dois le faire manuellement lorsque je trouve dans l’angle haut à gauche de chaque cellule concernée l’erreur affichée .

Peut-on rajouter un code VBA qui au moment où l’on active Private Sub b_validation_Click() transforme à la récupération des données du classeur source les cellules C a BL en nombre avec virgule (si jamais à la saisie dans le premier dossier il y a une erreur de point ou format lettre !!!).

merci de votre aide.

Cordialement
 
Trier par date Trier par votes
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

bonsoir,

essaie avec un truc comme ça :

Code: 
Range("A1:BL1000").Copy
    With WorkSheets("xxx")
        .Range("J1").PasteSpecial Paste:=xlPasteValues
        .Range("J1").PasteSpecial Paste:=xlPasteFormats
    End With

il va copier et coller avec la méme format du fichier source 🙂

slt
haytoch
 
Vote positif 0 Vote négatif
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

Bonjour haytoch Bonjour le forum

Merci pour ta réponse .

Ca bug j’ai le résultat suivant « erreur d’exécution ‘1004’ la méthode Pastespecial de la classe Range a échoué ».

Je n’ai surement pas placé ton code au bon endroit . Je l’ai placé d’abord au début de mon code puis à la fin .Voici le code d’origine complet:

Private Sub b_validation_Click()
Sheets("SaisieFicheSimple").Select
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Application.Proper(Me.ComboBoxrecette)
ActiveCell.Offset(0, 1).Value = (Me.age)
' ActiveCell.Offset(0, 2).Value = TITRE
ActiveCell.Offset(0, 5).Value = Prenom2
'ActiveCell.Offset(0, 4).Value = (TextBox1)
'ActiveCell.Offset(0, 8).Value = (Me.age2)
ActiveCell.Offset(0, 15).Value = Now
ActiveCell.Offset(0, 16).Value = Environ("username")
ActiveCell.Offset(0, 37).Value = (Me.Label1)
ActiveCell.Offset(0, 38).Value = (Me.Label47)
ActiveCell.Offset(0, 39).Value = (Me.Label48)
ActiveCell.Offset(0, 40).Value = (Me.Label49)
ActiveCell.Offset(0, 41).Value = (Me.Label50)
ActiveCell.Offset(0, 42).Value = (Me.Label51)
ActiveCell.Offset(0, 43).Value = (Me.Label52)
ActiveCell.Offset(0, 44).Value = (Me.Label53)
ActiveCell.Offset(0, 45).Value = (Me.Label54)
ActiveCell.Offset(0, 46).Value = (Me.Label55)
ActiveCell.Offset(0, 47).Value = (Me.Label56)
ActiveCell.Offset(0, 48).Value = (Me.Label57)
ActiveCell.Offset(0, 49).Value = (Me.Label58)
ActiveCell.Offset(0, 50).Value = (Me.Label59)
ActiveCell.Offset(0, 51).Value = (Me.Label60)
ActiveCell.Offset(0, 52).Value = (Me.Label61)
ActiveCell.Offset(0, 53).Value = (Me.Label62)
ActiveCell.Offset(0, 54).Value = (Me.Label63)
ActiveCell.Offset(0, 55).Value = (Me.Label64)
ActiveCell.Offset(0, 56).Value = (Me.Label65)
ActiveCell.Offset(0, 57).Value = (Me.Label66)
ActiveCell.Offset(0, 58).Value = (Me.Label67)
ActiveCell.Offset(0, 59).Value = (Me.Label68)
ActiveCell.Offset(0, 60).Value = (Me.Label69)
ActiveCell.Offset(0, 61).Value = (Me.Label70)
ActiveCell.Offset(0, 62).Value = (Me.Label71)
ActiveCell.Offset(0, 63).Value = (Me.Label72)
ActiveCell.Offset(0, 64).Value = (Me.Label73)
ActiveCell.Offset(0, 65).Value = (Me.Label74)
ActiveCell.Offset(0, 66).Value = (Me.Label75)
ActiveCell.Offset(0, 67).Value = (Me.Label76)
ActiveCell.Offset(0, 68).Value = (Me.Label77)
ActiveCell.Offset(0, 69).Value = (Me.Label78)
ActiveCell.Offset(0, 70).Value = (Me.Label79)
ActiveCell.Offset(0, 71).Value = (Me.Label80)
ActiveCell.Offset(0, 72).Value = (Me.Label81)
ActiveCell.Offset(0, 73).Value = (Me.Label82)
ActiveCell.Offset(0, 74).Value = (Me.Label83)
ActiveCell.Offset(0, 75).Value = (Me.Label84)
ActiveCell.Offset(0, 76).Value = (Me.Label85)
ActiveCell.Offset(0, 77).Value = (Me.Label86)
ActiveCell.Offset(0, 78).Value = (Me.Label87)
ActiveCell.Offset(0, 79).Value = (Me.Label88)
ActiveCell.Offset(0, 80).Value = (Me.Label89)
ActiveCell.Offset(0, 81).Value = (Me.Label90)
ActiveCell.Offset(0, 82).Value = (Me.Label91)
ActiveCell.Offset(0, 83).Value = (Me.Label92)
ActiveCell.Offset(0, 84).Value = (Me.Label93)
ActiveCell.Offset(0, 85).Value = (Me.Label94)
ActiveCell.Offset(0, 86).Value = (Me.Label95)
ActiveCell.Offset(0, 87).Value = (Me.Label96)
ActiveCell.Offset(0, 88).Value = (Me.Label97)
ActiveCell.Offset(0, 89).Value = (Me.Label98)
ActiveCell.Offset(0, 90).Value = (Me.Label99)
ActiveCell.Offset(0, 91).Value = (Me.Label100)
ActiveCell.Offset(0, 92).Value = (Me.Label101)
ActiveCell.Offset(0, 93).Value = (Me.Label102)
ActiveCell.Offset(0, 94).Value = (Me.Label103)
ActiveCell.Offset(0, 95).Value = (Me.Label104)
ActiveCell.Offset(0, 96).Value = (Me.Label105)
ActiveCell.Offset(0, 97).Value = (Me.Label106)
ActiveCell.Offset(0, 98).Value = (Me.Label107)
Feuil4.Select
Unload Me
End Sub

merci de ton aide.

Cordialement @+
 
Vote positif 0 Vote négatif
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

Bonjour

essaie comme cela :

Code: 
Private Sub b_validation_Click()
Sheets("SaisieFicheSimple").activate
   [A65000].End(xlUp).Offset(1, 0).Select
      ActiveCell.Value = Application.Proper(Me.ComboBoxrecette)
   ActiveCell.Offset(0, 1).Value = (Me.age)
'  ActiveCell.Offset(0, 2).Value = TITRE
   ActiveCell.Offset(0, 5).Value = Prenom2
   'ActiveCell.Offset(0, 4).Value = (TextBox1)
   'ActiveCell.Offset(0, 8).Value = (Me.age2)
   ActiveCell.Offset(0, 15).Value = Now
   ActiveCell.Offset(0, 16).Value = Environ("username") 
   ActiveCell.Offset(0, 37).Value = (Me.Label1)

for i=38 to 98
ActiveCell.Offset(0, i) = cdbl(controls("Label" & i+9).value)
next i

   Feuil4.activate
       Unload Me
  End Sub
 
Vote positif 0 Vote négatif
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

Bonjour Misange

Merci mais nouveau problème « erreur de compilation variable non définie » vois tu d’où cela peut provenir ?

@+
 
Vote positif 0 Vote négatif
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

quand tu dit au début :

c’est à dire sous option explicite ou sous Private Sub b_validation_Click()
ou au dessus de For i car j’ai essayé ces solutions et cela ne marche toujours pas.

Faut-il que je rajoute le code de haytoch ?

merci
 
Vote positif 0 Vote négatif
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

Misange à dit:
oui, il faut ajouter dim i as integer au début si tu as mis option explicit dans tes modules
Cliquez pour agrandir...

juste méme code de Misange , et tu ajoute la definition du variable i :


Code: 
Private Sub b_validation_Click()
Dim i as integer
Sheets("SaisieFicheSimple").activate
   [A65000].End(xlUp).Offset(1, 0).Select
      ActiveCell.Value = Application.Proper(Me.ComboBoxrecette)
   ActiveCell.Offset(0, 1).Value = (Me.age)
'  ActiveCell.Offset(0, 2).Value = TITRE
   ActiveCell.Offset(0, 5).Value = Prenom2
   'ActiveCell.Offset(0, 4).Value = (TextBox1)
   'ActiveCell.Offset(0, 8).Value = (Me.age2)
   ActiveCell.Offset(0, 15).Value = Now
   ActiveCell.Offset(0, 16).Value = Environ("username") 
   ActiveCell.Offset(0, 37).Value = (Me.Label1)

for i=38 to 98
ActiveCell.Offset(0, i) = cdbl(controls("Label" & i+9).value)
next i

   Feuil4.activate
       Unload Me
  End Sub
 
Vote positif 0 Vote négatif
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

Si tu veux qu'on t'aide il vaut mieux suivre les recommandations d'XLD et mettre un petit fichier exemple pour qu'on puisse tester et voir le problème.
 
Vote positif 0 Vote négatif
Re : erreur de recopie de donnée en ADO (soit en chiffres soit en lettres )

Bonjour Misange et le forum

Toutes mes excuses. Voici le dossier allégé.


(les erreurs se situent dans le dossier "nutritionnelles") la macro s'ouvre dans la cellule A6

Cordialement @+
 

Pièces jointes

Dernière édition:
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

  • Résolu(e)
XL 2021 Apparition des lettres ou des chiffres lors de la frappe
Réponses
5
Affichages
267
TooFatBoy
D
  • Question Question
Microsoft 365 Problème de format de cellule en VBA
Réponses
11
Affichages
778
David
D
G
  • Question Question
Microsoft 365 Convertir CSV en tableau de nombres
Réponses
7
Affichages
345
sylvanu
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
190
Pepepichnette69
P
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
267
piga25
A
  • Question Question
XL 2019 Extraire les chiffres de gauche avec une VBA
Réponses
3
Affichages
360
AtTheOne
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
223
fanch55
J
  • Question Question
XL 2019 EPS - gestion Séquence demi-fond
Réponses
4
Affichages
139
jeremy.lachdc
J
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
370
sousou
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
154
Sissou71
S
R
  • Résolu(e)
XL 2019 Comment extraire séparément plusieures chaines de caractères ou chiffres/nombres depuis une cellule avec libellé complexe alpha numérique
2
Réponses
28
Affichages
1 K
Renardy
R
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
436
MCOTTEND
M
  • Question Question
XL 2019 récupération automatique de données
Réponses
13
Affichages
522
serras
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
873
Helios77
H
M
  • Question Question
Microsoft 365 Problème à une solution de tri erronée
Réponses
2
Affichages
476
TooFatBoy
S
  • Résolu(e)
XL 2010 Attribuer ou Changer la valeur d'une cellule en validation de données
2
Réponses
19
Affichages
2 K
Sirberthoult
S
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
662
RyuAutodidacte
M
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
492
Marvin57
M
J
  • Question Question
Microsoft 365 Conversion de fichiers word en pdf / VBA
Réponses
1
Affichages
595
kiki29
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
515
Romain77144
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…