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

  FORUM HardWare.fr
  Programmation

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

 
 


Dernière réponse
Sujet : [VB & Excel] Comment sélectionner plusieurs cellules avec ...
le_duc

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

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
le_duc

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!!!!!
JPA 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é
le_duc

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:

le_duc

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:

JPA 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+
le_duc

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!
JPA double le " :
strtoto=""""
strtoto contiendra "
Mais ton code sera peu lisible...
le_duc

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:

JPA 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+
le_duc ? de l'aide SVP!
le_duc :bounce:
le_duc

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

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

JPA 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+
le_duc :bounce:
le_duc eh de l'aide SVP!!!  :cry:
le_duc

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??
le_duc

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:
latruffe ben simplement ça non ?
 

Code :
  1. Sub test()
  2. Dim rep As String
  3. rep = "N10"
  4. Range("A10:" & rep).Select
  5. End Sub
JPA 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...
 
le_duc :eek2:
le_duc ?  :bounce:
le_duc avec une variable comme référence...
 

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


 
vous avez compris?...

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)