Résultats de la recherche

L'idée est que je puisse saisir manuellement le nombre de ligne de titre dans un inputbox pour déterminer le point de départ de la macro

Merci beaucoup pour ton aide !

Je pense avoir trouvé ! Sub nettoyer_fichier() Dim LG&, CL&, i&, PlG As Range Dim Titre As Double Titre = InputBox("Combien de ligne de titre : ", "Ligne de titre") LG = Cells(Rows.Count, 1).End(xlUp).Row CL = Cells(Titre + 1, 2).End(xlToRight).Column On Error Resume Next For i = 2 To CL Set...

Oui mais j'ai planté la macro .... je pense avoir fait une connerie ... : Sub nettoyer_fichier() Dim LG&, CL&, i&, PlG As Range Dim Titre As Double Titre = InputBox("Combien de ligne de titre : ", "Ligne de titre") LG = Cells(Rows.Count, 1).End(Titre - 1).Row CL = Cells(Titre + 1...

Super, merci encore ! et santé !

Tu penses qu'il est possible d'ajouter un message box pour inscrire manuellement le nombre de ligne de titre (ça peut varier entre 1 et 4) ?

C'EST PARFAIT !!! Tu es au top !

Salut Staple1600, Merci pour ton retour, voici le fichier avant et après J'ai ajouté sur l'onglet après les actions qui sont réalisées manuellement

C'est un excellent début ! Ce qui a bien marché : - Ne pas impacter la première colonne et les tires - Remplacer toutes les valeurs textes Ce qui n'a pas marché : - remplacer les textes par la moyenne de la colonne en question (actuellement remplacé par 0) Est ce qu'il faudrait pas...

Merci pour ton retour, en effet avec un exemple c'est plus parlant ! Dans le fichier joint il y a des textes (le texte peut varier du coup il faudrait idéalement qu'il remplace le texte peut importe ce qui est écrit dans la cellule) qui faudrait remplacer par la moyenne de la colonne en...

Bonjour tout le monde, Je sollicite votre aide pour établir une macro qui va changer ma vie ! Voici en détail mon besoin : Pour chaque colonne du tableau : - Vérifier que chaque cellule de la colonne ne contient pas de texte. S'il y a du texte (peu importe le texte) remplacer la...