Astuces Excel
  1. Astuces Excel
  3. VBA Excel Macro Erreur d'exécution '1004' lors de la tentative de .Find ()
Intereting Posts
Excel VBA remplit la première ligne vide par rapport à la première rangée avec la colonne vide A Comment puis-je invoquer l'événement IE 'onblur' du code VBA dans Excel? Comment créer un graphique des intervalles de time dans Excel Diviser datatables incohérentes Ne laissez pas Excel ouvrir le file s'il est déjà ouvert Est-il possible d'append un dictionary à un tableau dans Excel VBA? Existe-t-il un moyen de changer la langue de script par défaut dans les feuilles de calcul Google de l'Excel à Javascript? Correspondance d'adresses IP dans un file excel vers des blocs CIDR dans un autre file excel avec Python 3 Prise en charge nécessaire avec la programmation vba pour un calendar popup La fonction IF nestede ne fonctionne pas avec le time Longueur du tableau VBA en fonction d'une input user lire des files Excel dans une seule database avec readxl R Couleur de fond de cellule exportant HTML vers Excel Excel comment extraire toutes les feuilles et les save en files simples dans la version .xls 2003 Lire un file Excel à partir de C #

VBA Excel Macro Erreur d'exécution '1004' lors de la tentative de .Find ()

Je suis nouveau sur la macro et je voulais find un text ou une partie de text d'une gamme dans une feuille de calcul, j'ai recherché et trouvé ce code: 

Set aCell = .Columns(1).Find(What:="Custom ", LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False)

Mais quand je cours, cela me donne 1004 erreurs. C'est donc mon sous total: 

 Sub kl() Dim ws As Worksheet Dim aCell As Range Set ws = ThisWorkbook.Sheets("te-dhenat") With ws Set aCell = .Columns(1).Find(What:="Custom ", LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not aCell Is Nothing Then aCell.Value = "Test" Else MsgBox "Not Found" End If End With End Sub

Je pense que le code semble bon, alors je ne sais pas pourquoi Excel montre cette erreur, aidez-nous et merci d'avance

votre code 

 aCell.Value = "Test"

entraînera l'exécution du code de l'événement!

Voir cette page, searchz la section "Prévenir les loops d'events".

Si vous avez d'autres informations qui méritent d'être lues.

Donc, append un code similaire à celui-ci: 

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Value = Target.Value + 1 Application.EnableEvents = True End Sub