Aide VBA Lignes & colonnes
Bonjour,
Je suis en train de travailler donc en VBA et je débute. Je reprends donc le travail effectué par le précédent en poste, et il y a une partie de l'éxécution que je ne comprends pas, pourriez vous m'expliquer ?
Range("a1").Selct // Selection de la case A1 je suppose
Selection.AutoFilter Field := 3, Criteria1 := ""
' Suppression ligne Vide
Rows("2:800").Select
Selection.Delete Shift := xlUp
Selection.autoFilter Field := 3
'Copie Colonne a
Rannge("a2").Select
Selection.Copy
Range("a3:a50000").Select
ActiveSheet.Paste
Je ne vous cache pas que les commentaires ne m'aident pas de trop !
Merci d'avance de vos réponses !
Salut Anthony,
Ta macro – après avoir été un peu décabossée, la prochaine fois utilise le copier-coller, ça évite des fautes de frappes – filtre les lignes de la colonne C qui sont vides et les supprimes.
Ensuite – un peu bizarrement – elle copie la cellule A2 et la reproduit sur 50000 lignes, en écrasant les données en place dans cette colonne.
Cordialement.
Merci Yvouille de ton aide !
J'ai une autre question, comment faire pour afficher toutes les cellules d'une feuille excel en VBA ?
En effet, j'ai une feuille avec plus de 50.000 lignes et les 48.000 première on va dire sont masquées :/
et il me faudrait toutes les afficher !
Merci d'avance !
Re,
Pour ouvrir les lignes 19 et 20 tu peux utiliser l'instruction ci-dessous :
Rows("19:20").EntireRow.Hidden = False
Si ce n'est pas ça, il faudait éventuellement voir ton fichier.
Amicalement.
Bonjour,
Ctrl+A / Clic droit sur des lignes ou colonnes / Afficher
ça devrait tout faire réapparaître normalement..
Sauf si ce sont des filtres ? (pas sûr, à vérifier..)
Cordialement,
Salut Eriane,
Anthony m'avais demandé une solution VBA
anthonycerf a écrit :comment faire pour afficher toutes les cellules d'une feuille excel en VBA ?
Cordialement.
Yvouille a écrit :Salut Eriane,
Anthony m'avais demandé une solution VBA
anthonycerf a écrit :comment faire pour afficher toutes les cellules d'une feuille excel en VBA ?
Cordialement.
Effectivement,
Mes excuses !
Yvouille, ta solution n'a pas l'air de fonctionner chez moi :/
Je suis sous 2003, y-a-t-il une incidence ?
Je ne pense pas que ça vienne de ta Version.
Yvouille a écrit :Si ce n'est pas ça, il faudait éventuellement voir ton fichier.
Au plaisir de voir ton fichier
Ce sont des fichiers "sensibles" sur un serveur et j'ai le droit de copier le fichier malheureusement ... :/
J'ai ca comme bout de code :
Shhets("temp").Activate
Range("b1:v350").Select
Selection.Copy
Sheets("listevo").Activate
Rows("3:48202").EntireRow.Hidden = Fallse
Range("b3").Select
ActiveSheet.Paste
ActiveWorkBook.Save
Si cela peut vous aider ...
Ne peux-tu pas prendre ton fichier, en faire une copie dans laquelle tu ne laisses que 10 lignes sur les 300'000 que contient l'original, - juste assez pour démontrer ton problème - et tu remplaces les données sensibles de ces 10 lignes par des données bidon ?
Sinon veux-tu me fournir ton fichier en privé ?
Evite les messages par épisodes ! Sinon on place une réponse alors que tu n'as pas fini d'écrire. Je ne regarde plus tes codes sans voir ton fichier, puisque le problème semble venir de ta feuille Excel et non pas de ton code.
Désolé pour les messages par épisodes
Par contre, je n'ai plus d'erreur finalement, après avoir modifié quelque chose qui n'avait pas de rapport, tout ce passe pour le mieux ! Merci de votre aide à tous !