Actualiser Données VBA

Bonjour tout le monde !

J'ai un onglet "events" dans lequel il y a les colonnes de A jusqu'à G qui se remplissent a partir de la ligne 2 avec des données issues d'un fichier texte externe.

J'utilise actuellement une commande basique :

Code:

---

1 2 3 4

Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub

---

Comme ça au lancement du fichier ça s'actualise automatiquement depuis mon fichier texte qui lui change tout le temps.
Seulement je suis confronté a plusieurs problèmes :

->Durant cette actualisation il me demande toujours l'emplacement de mon fichier texte. Comment je peux faire pour lui définir un emplacement fixe pour ne plus avoir de message ?

-> dans mes colonnes H et I, j'ai 2 formules en haut que je souhaite étendre tout le long de ces colonnes. Actuellement je sélectionne les 2 cases, et double clique sur le petit carré noir qui se met en dessous a droite de la sélection pour qu'il s’étende sur les 2 colonnes.

->J'aimerai supprimer toutes les lignes qui contiennent un certain mot dans une certaine colonne, par exemple si j'ai "alain dupont" en A2, que je ne veux pas de "dupont" dans mon tableau. comment je peux m'y prendre ?

Si quelqu'un peut un peu m'aider ce serai sympa ! merci d'avance :ccool:

Salut,

Pour le rafraichissement des données, pas besoin de VBA.
Passe par l'onglet Données, près du bouton de rafraichissement tu verra le bouton paramètres qui t'ouvre une fenêtre.
Dans cette fenêtre, décoche la troisième case en partant du haut (je suis en version anglaise, je ne suis pas certain du nom en français...) 'Demander le nom quand rafraichit'
Et pour éviter le VBA, coche la 5ème case en partant du haut 'Rafraichir les données à l'ouverture'

Pour les autres points, vois le code ci-dessous, je pense avoir mis assez de commentaire pour que ce soit compréhensible.
Tu dois bien entendu adapter certaines variables selon ton fichier, bonne continuation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub CleanRows() Dim Ws As Worksheet Dim DerLig As Long, R As Long Dim RefMot As String Dim RefCol As Byte   Set Ws = Sheets("LeNomDeTaFeuille") 'Remplace par le nom exacte de la feuille qui contient les données RefMot = "LeMotQuiDetermineLaSuppression" 'Utilise la variable RefMot pour déterminer le mot qui indique si il faut supprimer la ligne RefCol = 4 'Indique le numéro de colonne (ici D) qui contient les mots à comparer à RefMot   DerLig = Ws.Cells(Ws.Cells.Count, 1).End(xlUp).Row 'Détermine le nombre de lignes utilisées   For R = DerLig To 2 Step -1 'Boucle de la dernière ligne à la deuxième Ws.Cells(R, 8) = Ws.Cells(2, 8) '"Copie" le contenu de la cellule H2 dans la cellule H suivant la boucle Ws.Cells(R, 9) = Ws.Cells(2, 9) '"Copie" le contenu de la cellule I2 dans la cellule I suivant la boucle   If Ws.Cells(R, RefCol) = RefMot Then 'Compare le mot de référence au mot contenu dans la cellule selon la boucle Ws.Cells(R, RefCol).EntireRow.Delete 'Supprime la ligne si la comparaison renvoi vrai End If Next R End Sub

---

bonjour et merci pour ton aide, a vrai dire je ne m'attendai pas a une réponse si complète !
Je vais regarder ton code et en tirer meilleur parti :) en te remerciant !!
Bonne journée a toi

Edit : J'obtiens une erreur sur cette ligne avec le code 1004 "erreur definie par l'application ou par l'objet" :

Code:

---

1 2	DerLig = Ws.Cells(Ws.Cells.Count, 1).End(xlUp).Row

---

Edit 2 : j'ai trouvé la source du problème, j'ai remplacé Ws.Cells.Count par 65000.
Par contre je remarque que ma formule de H et I n’évolue plus en fonction de la ligne..
voici le contenu de H2 et I2 :

Code:

---

1 2 3 4 5

pour H2 =SI(OU(ESTVIDE(A2));"";MOIS(A2)&-ANNEE(A2)) et I2 =SI(OU(ESTVIDE(F2));"";SI(ESTNUM(CHERCHE("%";F2));" dépassement";F2))

---

par évoluer je veux dire que par exemple a la ligne 150 il y aura A150 et F150 dans les formules :ccool:
J'ai aussi un soucis au moment ou il recherche le mot pour supprimer la ligne, il faut que j’écris exactement le contenu de la case, et non seulement un mot.
Je regarde si j'ai pas loupé un truc. merci pour tout encore !!!!