[VBA-E] Selection de valeur uniquement

Version imprimable

Bonjour à tous

J'ai un petit souci, dans un tableau je fais une recherche de zone qui comporte des valeurs mais dans mon tableau j'ai une partie avec des cellules qui comporte des formules et egalement des valeurs dans ces meme cellules et dans une partie inferieur du tableau uniquement des formules dans les cellules comment puis ne selectionner que la partie supérieur avec les valeurs et pas la totalité du tableau.

mon code de selection dans le tableau est celui ci:
Code:

1 2 3 4 5 6 7 Dim firstcell, lastcell, zone As Range Set firstcell = Range("AA5") Set lastcell = Range("T65536").End(xlUp) Set zone = Range(firstcell, lastcell) Range(firstcell, lastcell).Select selection.Copy
Si quelqu'un peut m'aider!

Merci d'avance.

26/05/2006, 22h11
SfJ5Rpw8
bonjour... , pourrai-tu être plus clair.. sur ton histoire de formules et valeurs... ne sagirait t'il pas plutôt de cellule contenant des formules dont le résultat et une chaine vide (ou 0) et d'autre contenant les mêmes (ou d'autre) formules avec un résultat diférent...?

... sinon les formules elles sont dans toutes les colonnes...? .. tu peu par exemple partir de ta derniére cellule et remonter.. jusqu'a obtenir une valeur <> ""...?

Tiens ... vois ce code à placer aprés ton set Zone
Code:

1 2 3 4 5 6 For i = zone.Count To 1 Step -1 If zone.Cells(i) <> "" Then Exit For Next Set lastcell = zone.Cells(i) Range(firstcell, lastcell).Select
PS : Je trouve quand même ta sélection initiale qui va de la cellule AA5 , jusqu'as la derniére cellule dans colonne T...
26/05/2006, 22h25
zoumzoum59

mon tableau est composé de cellules comportant toute le meme style de formule:
=SI(B13="";"";B13)

est donc la partie superieur du tableau corporte des valeurs equivalentes aux cellules corespondantes en locurence pour celle ci B13 ( cette valeur peut etre soit un chiffre soit des lettres) et la partie inferieur toujours les meme type de formule mais pas de valeur : ""
26/05/2006, 22h47
SfJ5Rpw8

tu as vu mon code..? et compris ..?

excuse j'avais pas vu ton code

mais j'ai un souci il ne selectionne que les colonnes de Z à AA est pas de T à AA est je ne vois pas pourquoi voila le code complet de la Macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Sub selectionTab()
 
Dim firstcell, lastcell, zone As Range
 
Set firstcell = Range("AA5")
Set lastcell = Range("T65536").End(xlUp)
Set zone = Range(firstcell, lastcell)
For i = zone.Count To 1 Step -1
  If zone.Cells(i) <> "" Then Exit For
Next
Set lastcell = zone.Cells(i)
Range(firstcell, lastcell).Select
 selection.Copy
    Workbooks.Add
    ActiveSheet.Paste Link:=True
    With selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    Set firstcell = Range("H1")
Set lastcell = Range("H65536").End(xlUp)
Set zone = Range(firstcell, lastcell)
Range(firstcell, lastcell).Select
selection.ClearContents
 
End Sub

Si tu peux me l'expliquer merci

26/05/2006, 23h18
SfJ5Rpw8

oui ... il y as une coquille dans mon code... il faut modifier la ligne

Code:

Set lastcell = zone.Cells(i)

par

Code:

Set lastcell = zone.Parent.Cells(zone.Cells(i).Row, 20) ' 20 =Colonne T

PS : eu ... il doit y avoir plus simple mais la je vois pas :koi:
26/05/2006, 23h23
zoumzoum59

ok c'est du tonnerre j'ai pas tout decripté pour le moment mais je vais le faire.

Merci encore pour le coup de pouce
26/05/2006, 23h28
SfJ5Rpw8

bon pour résolu tu as un bouton en bas de l'écran....

je le fais pour toi .. ;)