Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 07/03/2010, 23h48   #1
Membre du Club
 
Inscription : juin 2008
Messages : 280
Détails du profil
Informations forums :
Inscription : juin 2008
Messages : 280
Points : 46
Points : 46
Par défaut sélectionner une plage avec une fin aleatoire

Bonjour,
j'essaie de recuperer une plage de cellule dont le debut est connu "c13"
mais la fin est generer par une macro donc aleatoire
j'ai trouver une solution pour recuperer une valeur avec integer en testant chaque cellule de la plage jusqu'a ce qu'elle soit vide et recuperer le nombre pour l'affecter dans mon range("c13:c & 13 + i ")..
mais je pense qu'en faisant comme cela...
on execute plus vite
je recherche en partant du bas de la colonne, la premiere cellule pleine
donc j'ai mon debut c13 et ma fin..
et j'essaie de faire
range("c13:fin").select
mais biensur ca ne marche pas, êut on le faire
et comment l'ecrire,
voici mon code
Code :
1
2
3
fin = Range("C65536").End(xlUp).Address
MsgBox fin ' l'adresse s'affiche bien avec de $
Range("c12:fin").Select
MERCI
djoumusic est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/03/2010, 08h03   #2
Membre Expert
 
Avatar de rvtoulon
 
Homme Hervé
Agent Technique
Inscription : mars 2009
Messages : 753
Détails du profil
Informations personnelles :
Nom : Homme Hervé
Âge : 36
Localisation : France, Var (Provence Alpes Côte d'Azur)

Informations professionnelles :
Activité : Agent Technique
Secteur : Santé

Informations forums :
Inscription : mars 2009
Messages : 753
Points : 1 249
Points : 1 249
Bjr, djoumusic
Et comme ceci:
Code :
1
2
3
fin = Range("C65536").End(xlUp).Row
MsgBox fin ' Affiche le numéro de la dernière ligne utilisée
Range("C13:C" & fin).Select
@+
rvtoulon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/03/2010, 15h48   #3
Membre du Club
 
Inscription : juin 2008
Messages : 280
Détails du profil
Informations forums :
Inscription : juin 2008
Messages : 280
Points : 46
Points : 46
bravo !
merci !
djoumusic est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 00h46.


 
 
 
 
Partenaires

Hébergement Web