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

XL 2016 Macro avec With End With

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
B

Bruce68

XLDnaute Impliqué
Bonsoir à tous
J' ai une macro sans With End With qui fonctionne et dés que je met With et end with ele ne fonctionne plus : erreur d exécution 1004
erreur définie par l'application ou par l'objet.
Voir fichier joint.
Je vous remercie de votre aide.
 

Pièces jointes

Trier par date Trier par votes
Bonjour Bruce,
Vous avez mis une image dans un pdf pour donner un morceau de code ?
Il eût été plus simple de mettre directement le code ici avec les balises </>.
Au moins on aurait pu l'analyser.
 
Vote positif 0 Vote négatif
Bonsoir Sylvanu et Job78
Voici le code avec tous les points
La macro ne fonctionne toujours pas.
Je vous remercie de votre aide

VB: 
With Sheets("Patients")
Application.ScreenUpdating = False

x = Application.CountIf(.Range("A2:A1000000"), ">""") + 1
    .Range(.Cells(2, 1), .Cells(x, 1)).Select

    Selection.Copy
    .Range("Tableau1[NONPrenom]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets("Donnees").Select
End With
End Sub
 
Vote positif 0 Vote négatif
En PJ un vrai fichier XL.
J'ai modifié quelques trucs. Cela coinçait sur le .Range("Tableau1[NONPrenom]").Select
( d'ailleurs le Select ne sert à rien )
VB: 
Sub essai()
With Sheets("Patients")
    Application.ScreenUpdating = False

    x = Application.CountIf(.Range("A2:A1000000"), ">""") + 1
    .Range(.Cells(2, 1), .Cells(x, 1)).Copy
    
    .Range("NONPrenom").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End With
' Sheets("Donnees").Select           ' Invalidé pour test
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir Sylvanu
Merci pour la réponse et la macro
La macro seule dans un module fonctionne.
Je la place dans le ThisWorboot pour mettre à jour la feuille "Patients" don les infos sont dans le fichier formulaire Dans la colonne A de la feuille patients il n'y a que des formules de recup des données " NOMPrenom" la macro sert sert à transformer les valeurs en tableau Dynamique qui aliment une Liste déroulante
La macro s'arrête sur la ligne en gras avec toujours la même erreur
Je vous remercie pour l'aide


VB: 
Sub MajTab()
 With Sheets("Patients")
    Application.ScreenUpdating = False

    x = Application.CountIf(.Range("A2:A1000000"), ">""") + 1
    .Range(.Cells(2, 1), .Cells(x, 1)).Copy
    
   [B] Range("Tableau1[NONPrenom]").Select[/B]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End With
 Sheets("Donnees").Select
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Cela coinçait sur le .Range("Tableau1[NONPrenom]").Select
Cliquez pour agrandir...
Vous avez testé ma PJ ?
Pour coller une plage, il faut soit sélectionner une plage de même taille, soit sélectionner la première cellule.
Je ne sais pas ce que vous avez nommé NONPrenom mais la plage ne fait pas la bonne taille.
Remplacez Range("Tableau1[NONPrenom]").Select par Range("$A$2").Select par ex si le tableau1 NomPrénom commençait en A2.
 
Vote positif 0 Vote négatif
Re,
essaye ceci :
VB: 
Sub MajTab()
With Sheets("Patients")
    Application.ScreenUpdating = False
   .Range("C2:C65536").Clearcontents
    x = Application.CountIf(.Range("A2:A65536"), ">""") + 1
    .Range(.Cells(2, 1), .Cells(x, 1)).Copy
    .Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End With
Sheets("Donnees").Select
End Sub
Bonne nuit !
 
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

M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
353
macseb
M
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
252
mikeduff
M
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
408
nabilexcel2007
N
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
432
AtTheOne
L
  • Question Question
XL 2016 VBComponent
Réponses
7
Affichages
371
Loulou27
L
G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
755
kiki29
T
  • Question Question
Microsoft 365 Problème d'accès à des boutons ActiveX dans un classeur depuis un xlam
Réponses
10
Affichages
994
ThierryP
T
  • Résolu(e)
XL 2021 Comportement bizarre en Batch
Réponses
12
Affichages
292
jurassic pork
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
786
vgendron
E
  • Résolu(e)
Microsoft 365 problème
2
Réponses
18
Affichages
359
sousou
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
312
pascal21
N
  • Résolu(e)
Microsoft 365 Code erreur dans code Vba
Réponses
14
Affichages
551
TooFatBoy
J
  • Question Question
Microsoft 365 SI cellule autre feuille est égal à oui
Réponses
2
Affichages
101
job75
  • Résolu(e)
XL 2010 Userform Plein Ecran VBA7
2
Réponses
16
Affichages
533
cathodique
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
1 K
jurassic pork
D
  • Résolu(e)
XL 2016 Erreur 1004 : select
Réponses
7
Affichages
606
patricktoulon
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
2 K
fanch55
N
  • Question Question
Microsoft 365 Envoi via Excel avec OutlookNew
Réponses
4
Affichages
639
Titou37P
  • Question Question
XL 2016 Position userform dans coin supérieur gauche de cellule 2016 et+
7 8 9
Réponses
129
Affichages
6 K
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…