Discussion :

[frag132]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[frag132]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
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 !!!!