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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Sélection d'une cellule spécifique

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Sélection d'une cellule spécifique

n°1529686
titine1984
Posté le 16-03-2007 à 19:12:48  profilanswer
 

J'ai un travail à faire et je comptais utiliser le VBA mais je ne sais pas si une macro pourrait me permettre de faire ceci :  
 
- sur excel, il me faut sélectionner certaines cellules contenant des chiffres et n'étant pas en couleur (aucun remplissage)
- la sélection devra donc écarter les cellules ayant une trame de fond colorée
 
Merci pour votre aide

mood
Publicité
Posté le 16-03-2007 à 19:12:48  profilanswer
 

n°1529693
ingenieurc​esi
Posté le 16-03-2007 à 19:29:43  profilanswer
 

tu peux  utilise les boucles
for l=1 to nbredeligne step 1
for c=1 to nbredecol step 1
If IsNumeric(Cells(l,c)) And Cells(l, c).Interior.ColorIndex = xlNone Then
......'selection multiple
end if
next c
next l
 
je regarde pour la selection multiple
 
a+


Message édité par ingenieurcesi le 16-03-2007 à 19:30:21
n°1529704
ingenieurc​esi
Posté le 16-03-2007 à 19:57:59  profilanswer
 

pour l'instant j'ai fait ca par contre j'arrive pas à faire fonctionner le union donc si quelqu'un le sait ou à une autre idée
 
Sub test()
For l = 1 To 4 Step 1
For c = 1 To 4 Step 1
cellule = "Cells(" & l & "," & c & " )"
If IsNumeric(Cells(l, c)) And Cells(l, c).Interior.ColorIndex = xlNone Then
Selection = Selection + ";" + cellule
'......'selection multiple
End If
Next c
Next l
Application.Union(Range(Selection)).Select
End Sub
 
bonne soirée et bon weekend
a+


Message édité par ingenieurcesi le 16-03-2007 à 20:00:22
n°1529716
titine1984
Posté le 16-03-2007 à 20:52:19  profilanswer
 

c'est deja une très très bonne piste... bien plus loin que ce que j'aurais espérer pouvoir réaliser
 
il ne reste plus qu'à le mettre en pratique
merci!
 

n°1529930
ingenieurc​esi
Posté le 17-03-2007 à 15:03:39  profilanswer
 

solution definitive (pour ma part)
 
Sub test1()  
premiere = True  
For l = 1 To 4 Step 1  
For c = 1 To 4 Step 1  
If IsNumeric(Cells(l, c)) And Cells(l, c).Interior.ColorIndex = xlNone And Not (IsEmpty(Cells(l, c))) Then  
    If premiere Then  
    Cells(l, c).Select  
    premiere = False  
    Else  
    Union(Selection, Cells(l, c)).Select  
    End If  
End If  
Next c  
Next l  
End Sub
 
il faut que tu changes les
For l = 1 To 4 Step 1  
For c = 1 To 4 Step 1  
 
a+


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Sélection d'une cellule spécifique

 

Sujets relatifs
Sélection ligne dans lignes filtrées[VBA-Excel] Contenu de ListBox dépendant de la valeur d'une cellule
Selection d'intervalesselection aléatoire sql
formule excel: faire varier la référence d'une celluleSelection de sous chaines
valeur de la selection d'une liste déroulante dans une variableselection cellules non contigues en vba
[xsl] sélection de noeuds selon leurs attrituts [Résolu]Contraindre la largeur d'une cellule
Plus de sujets relatifs à : Sélection d'une cellule spécifique


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