Offset end(xldown)

H

Hoareau

XLDnaute Occasionnel

• 24 Août 2012

• #2

Re : Offset end(xldown)

Mes excuses, après avoir posté mon message une inspiration enlever les "" et c'est bon

merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Août 2012

• #3

Re : Offset end(xldown)

Bonjour,

Pourquoi cette selection de plage avec offset ne fonctionne pas

Cliquez pour agrandir...

enlève les guillemets du "range"...

Code:

Range(C.Offset(0, -1), C.Offset(0, -1).End(xlDown)).Select

ensuite les "select" sont rarement utiles en vba.... et pour finir, ton "select case" semble incorrect... mais comme nous n'avons qu'une partie du code...

bon après midi
@+

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 24 Août 2012

• #4

Re : Offset end(xldown)

Ci joint le reste du code dans fichier

J'ai des tableaux importés web, le nombre de lignes et la disposition n'est pas constante, n'étant pas pas un expert, j'essaie de me débrouiller avec les moyens du bord.

Le code de la feuille selectionne ce que je veux, me restze juste à copier vers récap

les seules constantes, sont les mots et la disposition du champ voulu

Je voudrais faire une récap des champs selectionnés, les uns derriere les autres sur la feuille récap.

merci

 

Pièces jointes

• Test select case.xlsm

  18.6 KB · Affichages: 56

Vote positif 0 Vote négatif

T

Tech

Guest

• 24 Août 2012

• #5

Re : Offset end(xldown)

Bonjour Hoareau, forum,

C'est quelque chose comme ça que tu veux ?
Voir fichier

@+
Tech

 

Pièces jointes

• Copie de Test select case-1.xlsm

  21 KB · Affichages: 86

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 24 Août 2012

• #6

Re : Offset end(xldown)

Presque, au lieu d'être en dessous, être côte à côte avec le nom mais, mil etc... juste au dessus

merci

 

Vote positif 0 Vote négatif

T

Tech

Guest

• 25 Août 2012

• #7

Re : Offset end(xldown)

Re,

Alors si j'ai bien compris, ce fichier devrait te convenir. 😉


@ bientôt
Tech

 

Pièces jointes

• Copie de Copie de Test select case-1.xlsm

  20.7 KB · Affichages: 75

Vote positif 0 Vote négatif

T

Tech

Guest

• 25 Août 2012

• #8

Re : Offset end(xldown)

Je viens de voir qu'il y à une petite erreur sans conséquences dans le code
Pour faire plus propre, remplace le CptLig = 0 du début par CptCol = 0
et j'ai oublié de déclarer la variable CptCol as Integer
@+

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 25 Août 2012

• #9

Re : Offset end(xldown)

Impeccable

Effectivement, une autre approche

merci

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 25 Août 2012

• #10

Re : Offset end(xldown)

Bonjour

J'essaiei de modifier le code pour ajouter des colones dans certains cas, mais cela bloque

Le code c'est celui du dernier fichier fourni

merci

Sub Cherche_Champ()

Dim cellCible As Range
Dim CptCol As Integer

Application.ScreenUpdating = False



CptCol = 0

For Each Cas In [ListeDesTypes]
If Not Cas = "" Then
Set A = [ColSource].Find(Cas)
Set B = Range(A.Offset(0, -1), A.Offset(0, -1).End(xlDown))
Set C = Range(A.Offset(0, -9), A.Offset(0, -5).End(xlDown))


Set D = Application.Union(B, C)


ColorCas
Set cellCible = Sheets("Recap").[A1].Offset(0, CptCol)
A.Copy Destination:=cellCible
B.Copy Destination:=cellCible.Offset(1, 0)
D.Copy Destination:=cellCible.Offset(1, 0)

CptCol = CptCol + 1

End If
Next Cas



Application.ScreenUpdating = True
End Sub

Sub ColorCas()
If Cas.Text Like "Mais" Then
Cas.Interior.ColorIndex = 4
A.Interior.ColorIndex = 4
D.Interior.ColorIndex = 46

 

Vote positif 0 Vote négatif

T

Tech

Guest

• 26 Août 2012

• #11

Re : Offset end(xldown)

Bonjour Hoareau, bonjour Forum,

Dans le code proposé plus haut, [ColSource] est une plage définie directement dans la feuille excel. Si tu veux avoir une plus grande plage de recherche il te faut modifier la plage ColSource. Va voir dans la zone Nom, ou est indiquée l'adresse de la cellule sélectionnée. Si tu affiche le menu déroulant de cette zone, tu trouveras les plages déjà définies. Si tu veux en modifier une, il faudra au préalable la supprimer puis créer la plage dont tu as besoin en sélectionnant les cellules, lignes ou colonnes puis en renommant cette plage depuis la zone nom. N'oublies pas de valider avec entrée.
Tu peux aussi créer une plage à ta convenance et la nommer différemment. dans ce cas, il faudra remplacer le nom de la plage de recherche dans le code vba.
Les plages nommées ainsi peuvent êtres superposées si besoin.

Je trouve que cette méthode fais gagner de la place dans le code vba tout en le rendant plus lisible.

espérant avoir répondu à ta question.🙂
@+
Tech

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 26 Août 2012

• #12

Re : Offset end(xldown)

J'ai déjà modifié Colsource, ça ne passe passe pas

Juste un exemple, pour union plage non contigue dans le cadre de cette syntaxe

merci

 

Vote positif 0 Vote négatif

T

Tech

Guest

• 26 Août 2012

• #13

Re : Offset end(xldown)

Désolé, mes connaissances en vba sont relativement limitées. J'apprends.

Quelqu'un d'autre que moi te donnera sans doute l'exemple.

Juste une chose. dans cette partie de code,

Code:

Set cellCible = Sheets("Recap").[A1].Offset(0, CptCol)
A.Copy Destination:=cellCible
B.Copy Destination:=cellCible.Offset(1, 0)
D.Copy Destination:=cellCible.Offset(1, 0)

tu copie B et D au même endroit. à mon avis, tu ne récupérera que ce qui se trouve dans D.

Bonne quête +
Tech

 

Vote positif 0 Vote négatif

T

Tech

Guest

• 26 Août 2012

• #14

Re : Offset end(xldown)

Mais bon, comme je ne connais pas la fonction UNION. c'est peut être comme ça quand même....

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 26 Août 2012

• #15

Re : Offset end(xldown)

Merci

pour la partie du code fourni

 

Vote positif 0 Vote négatif