Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2389 connectés 

  FORUM HardWare.fr
  Programmation

  [VB & Excel] Comment sélectionner plusieurs cellules avec ...

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB & Excel] Comment sélectionner plusieurs cellules avec ...

n°170952
le_duc
PlaTyPuS
Posté le 04-07-2002 à 11:00:11  profilanswer
 

avec une variable comme référence...
 

Code :
  1. Rep = Range("N10" )
  2.    
  3. Range("A4:Rep" ).Select


 
vous avez compris?...


Message édité par le_duc le 04-07-2002 à 11:00:51
mood
Publicité
Posté le 04-07-2002 à 11:00:11  profilanswer
 

n°171025
le_duc
PlaTyPuS
Posté le 04-07-2002 à 11:45:06  profilanswer
 

?  :bounce:

n°171038
le_duc
PlaTyPuS
Posté le 04-07-2002 à 11:55:19  profilanswer
 

:eek2:

n°171067
JPA
Posté le 04-07-2002 à 12:32:38  profilanswer
 

peut pas marcher comme tu l'as écrit : rep est un range et non un string.
j'ai jamais fait de select dans les qq progrs VBA / Excel que j'ai fait, mais je fais ceci pour travailler en mode LC et non A1 :
 
'intValeur est un entier
'strTableau est un tableau de string
 
    i=1
    For Each Cell In Range(Cells(1, 1), Cells(intValeur, 1))
        Cell.Value = strTableau(i)
        i = i + 1
    Next Cell
 
...
 
Range(Cells(4, 2), Cells(intValeur + 4, intValeur2 + 2)).NumberFormat = "# ##0.00"
 
...
 
donc j'imagine que  
Range(Cells(4, 2), Cells(intValeur + 4, intValeur2 + 2)).select
doit marcher
 
Si ces exemples peuvent t'aider...
 

n°171148
latruffe
Bdovore
Posté le 04-07-2002 à 13:55:33  profilanswer
 

ben simplement ça non ?
 

Code :
  1. Sub test()
  2. Dim rep As String
  3. rep = "N10"
  4. Range("A10:" & rep).Select
  5. End Sub

n°171210
le_duc
PlaTyPuS
Posté le 04-07-2002 à 14:43:48  profilanswer
 

JPA a écrit a écrit :

peut pas marcher comme tu l'as écrit : rep est un range et non un string.
j'ai jamais fait de select dans les qq progrs VBA / Excel que j'ai fait, mais je fais ceci pour travailler en mode LC et non A1 :
 
'intValeur est un entier
'strTableau est un tableau de string
 
    i=1
    For Each Cell In Range(Cells(1, 1), Cells(intValeur, 1))
        Cell.Value = strTableau(i)
        i = i + 1
    Next Cell
 
...
 
Range(Cells(4, 2), Cells(intValeur + 4, intValeur2 + 2)).NumberFormat = "# ##0.00"
 
...
 
donc j'imagine que  
Range(Cells(4, 2), Cells(intValeur + 4, intValeur2 + 2)).select
doit marcher
 
Si ces exemples peuvent t'aider...
 
 




 
j'ai pas tout compris...  :pt1cable:  
 

latruffe a écrit a écrit :

 

Code :
  1. Sub test()
  2. Dim rep As String
  3. rep = "N10"
  4. Range("A10:" & rep).Select
  5. End Sub






 
j'vais essayer  :hello:


Message édité par le_duc le 04-07-2002 à 14:44:19
n°171261
le_duc
PlaTyPuS
Posté le 04-07-2002 à 15:10:39  profilanswer
 

latruffe a écrit a écrit :

ben simplement ça non ?
 

Code :
  1. Sub test()
  2. Dim rep As String
  3. rep = "N10"
  4. Range("A10:" & rep).Select
  5. End Sub






 
ca marche ton truc... mais dès que je mets ma formule, ca déconne :
 

Code :
  1. Range("A4" ).Select
  2. Max = Range("A2" )
  4. Dim fin As String
  5. fin = Selection.Offset(Max, 14)
  6. Range("A4:" & fin).Select


 
y'a quoi qui joue pas dans mon code??

n°171280
le_duc
PlaTyPuS
Posté le 04-07-2002 à 15:32:12  profilanswer
 

eh de l'aide SVP!!!  :cry:

n°171294
le_duc
PlaTyPuS
Posté le 04-07-2002 à 15:54:22  profilanswer
 

:bounce:

n°171317
JPA
Posté le 04-07-2002 à 16:25:11  profilanswer
 

Que veux tu faire exactement ?
Sélectionner de la cellule A4 à la cellule dont l'adresse est dans A2 ?
dans ce cas :
 
Dim fin As String
fin = Range("A2" ).Text
Range("A4:" & fin).Select
 
marche très bien
A+


Message édité par JPA le 04-07-2002 à 16:25:39
mood
Publicité
Posté le 04-07-2002 à 16:25:11  profilanswer
 

n°171444
le_duc
PlaTyPuS
Posté le 04-07-2002 à 19:37:58  profilanswer
 

JPA a écrit a écrit :

Que veux tu faire exactement ?
Sélectionner de la cellule A4 à la cellule dont l'adresse est dans A2 ?
dans ce cas :
 
Dim fin As String
fin = Range("A2" ).Text
Range("A4:" & fin).Select
 
marche très bien
A+




 
ben en fait, j'aimerais sélectionner une base de donnée entière... je connais le nombre de cases occupées verticalement grâce à la cellule "A2" et horizontalement la taille est fixe (14 cellules). Il est a noter que le nombre en "A2" peut changer!
 
Donc ce que j'aimerais faire, c'est sélectionner entièrement cette base de données grâce a des variables...

n°171463
le_duc
PlaTyPuS
Posté le 04-07-2002 à 20:42:33  profilanswer
 

JPA a écrit a écrit :

Que veux tu faire exactement ?
Sélectionner de la cellule A4 à la cellule dont l'adresse est dans A2 ?
dans ce cas :
 
Dim fin As String
fin = Range("A2" ).Text
Range("A4:" & fin).Select
 
marche très bien
A+




 
ta solution ne sélectionnera que la 1ère colonne...alors qu'il y en a 14 a sélectionner!

n°171505
le_duc
PlaTyPuS
Posté le 04-07-2002 à 23:12:49  profilanswer
 

:bounce:

n°171581
le_duc
PlaTyPuS
Posté le 05-07-2002 à 08:34:57  profilanswer
 

? de l'aide SVP!

n°171604
JPA
Posté le 05-07-2002 à 09:27:35  profilanswer
 

Dans A2 : nbre de lignes de la BDD
 
Dim nblig As Integer
nblig = Range("A2" ).Value
Range(Cells(4, 1), Cells(nblig + 4, 14)).Select
 
'Remarque : Cells(4, 1) correspond à la cellule A4
 
Tu aurais essayé de comprendre le code que je t'avais donné dans mes premiers exemples, tu y serais arrivé tout seul :D
A+

n°171670
le_duc
PlaTyPuS
Posté le 05-07-2002 à 10:48:00  profilanswer
 

JPA a écrit a écrit :

Dans A2 : nbre de lignes de la BDD
 
Dim nblig As Integer
nblig = Range("A2" ).Value
Range(Cells(4, 1), Cells(nblig + 4, 14)).Select
 
'Remarque : Cells(4, 1) correspond à la cellule A4
 
Tu aurais essayé de comprendre le code que je t'avais donné dans mes premiers exemples, tu y serais arrivé tout seul :D
A+




 
c'est bon, j'avais réussi!! merci pour votre aide ;)
 
autre question maintenant  :D :
 
Comment je peux faire pour dire à une macro d'écrire cette formule dans une case ?
 

Code :
  1. =SI(Baccara!B5="";"";Baccara!B5)


 
j'ai essayé comme ca, mais ca marche pas... à cause des 3 guillemets qui se suivent je pense... :
 

Code :
  1. Selection.Offset(0, 1) = "=SI(" & Var2 & "B" & max_employeur & """;"";" & Var2 & "B" & max_employeur & " )"


 
?...  :hello:

n°171734
JPA
Posté le 05-07-2002 à 11:27:41  profilanswer
 

double le " :
strtoto=""""
strtoto contiendra "
Mais ton code sera peu lisible...


Message édité par JPA le 05-07-2002 à 11:29:40
n°171738
le_duc
PlaTyPuS
Posté le 05-07-2002 à 11:33:10  profilanswer
 

JPA a écrit a écrit :

double le " :
strtoto=""""
strtoto contiendra "
Mais ton code sera peu lisible...




 
pas capté grand chose...
 
T'arrive à m'écrire ce que je dois mettre si je veux qu'une macro dise à excel d'écrire la formule suivante dans une cellule :
 
=SI(5>3;"C'est faux";"" )
 
merci d'avance!

n°171786
JPA
Posté le 05-07-2002 à 12:01:52  profilanswer
 

En enregistrant la macro et en tapant la formule dans la cellule on obtient :
 
Range("B5" ).Select
ActiveCell.FormulaR1C1 = "=IF(5>3,""c'est faux"","""" )"
     
A+

n°171826
le_duc
PlaTyPuS
Posté le 05-07-2002 à 13:04:17  profilanswer
 

JPA a écrit a écrit :

En enregistrant la macro et en tapant la formule dans la cellule on obtient :
 
Range("B5" ).Select
ActiveCell.FormulaR1C1 = "=IF(5>3,""c'est faux"","""" )"
     
A+




 
j'vais teste! merci beaucoup pour ton aide!!!!!  :jap:  :jap:  :jap:

n°171914
le_duc
PlaTyPuS
Posté le 05-07-2002 à 14:19:07  profilanswer
 

JPA a écrit a écrit :

En enregistrant la macro et en tapant la formule dans la cellule on obtient :
 
Range("B5" ).Select
ActiveCell.FormulaR1C1 = "=IF(5>3,""c'est faux"","""" )"
     
A+




 
j'voulais encore te demander :
 
- C'est possible de contrôler ce que les gens saisissent dans les champs? (je m'explique --> j'aimerais pouvoir afficher un message d'erreur si ce que la personne a saisi n'est pas un nombre par exemple...)
 
- C'est possible de vérifier si une feuille existe déjà ? (je m'explique --> l'utilisateur de mon application peut créer des feuilles (à l'aide d'une macro donc...) mais j'aimerais pouvoir contrôler si la feuille qu'il veut créer n'existe pas déjà.
 
Merci d'avance!  :hello:

n°171932
JPA
Posté le 05-07-2002 à 14:32:50  profilanswer
 

je sais que c'est possible, mais je ne l'ai jamais fait.
Donc -> retour au manuel et à l'abominable aide en ligne d'Excel.
désolé

n°172009
le_duc
PlaTyPuS
Posté le 05-07-2002 à 15:40:45  profilanswer
 

JPA a écrit a écrit :

je sais que c'est possible, mais je ne l'ai jamais fait.
Donc -> retour au manuel et à l'abominable aide en ligne d'Excel.
désolé




 
OK! j'vais essayer de trouver ;)
 
En tout cas merci beaucoup pour ton aide très précieuse!!!!!

mood
Publicité
Posté le   profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [VB & Excel] Comment sélectionner plusieurs cellules avec ...

 

Sujets relatifs
Générer des fichiers excel en java ??manipuler un fichier excel SANS excel installé.
!! URGENT !! Inserer un doc excel dans un champselectionner N enregistrements sous Access
[Access] Fusion Etat vers Excel....[VBA] Excel, créer une feuille à la volée et lui affecter du code
Excel 2000Pb de mémoire sous Excel
creation fichier et excel puis ecriture dans ce dernierConversion fichier Excel vers SQL
Plus de sujets relatifs à : [VB & Excel] Comment sélectionner plusieurs cellules avec ...

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.055 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR