Discussion :

[r4v3n]

Bonjour à toutes et à tous,

Mon but est de tirer certaines informations d'un tableau fournisseur. Pour le moment, j'arrivais à me dépatouiller car les tableaux étaient tous identiques. Jusqu’à ce jour ou ils ont modifié des lignes, et ou ma macro ne fait pas correctement !

Voici une partie d'un tableau de départ:




Les informations importantes pour moi sont A13:F24. Jusqu'à aujourd'hui, les tableaux commençais toujours en A13, je faisait donc une sélection du tableau à partir de A13 jusqu'en bas avec un décalage sur la droite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  'Selection de la la colonne "A"
    x = Range("A65536").End(xlUp).Row
    Range("A13" & ":" & "A" & x).Select
    'Selection des colonnes sur la droite
    Range(Selection, Selection.End(xlToRight)).Select

Le soucis est que maintenant, ils ont changé la cellule de départ, elles est variable ( ex: ca peut être A5, A7, A15....).

Je voudrais donc savoir si il était possible de dire à ma macro de commencer à selectionner à partir de la 1ere cellule "pleine" qui à pour "dénomination" "AH".

Si mes explications n'ont pas été clair, je tâcherais d'être plus explicite. J'ai oublié de préciser une chose importante, mon niveau en VBA est proche du 0 absolu.

Cordialement,

[Kimy_Ire]

Bonjour r4v3n,

Bon... Je conçois bien que lorsque l'on a aucune connaissance en VBA, on demande une solution. Cependant, avec des mots-clés simples tu peux accéder à des codes relativement proche de celui que tu veux.
De plus, l'enregistreur de macro est justement là pour t'aider.

Avec la manipulation suivante, tu peux avoir, grâce à l'enregistreur de macro, une macro fonctionnelle dans 100% des cas...

1. Tu sélectionnes ta colonne A.
2. Tu fais une recherche sur "AH".
3. Tu sélectionnes la cellule concernée.
4. Tu étends ta sélection à la plage nécessaire.
5. => Le tour est joué !

Avec un peu de travail sur le code fourni, tu trouves rapidement cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Selection_plage()
Dim oRng As Range
 
With Worksheets("Feuil2")
    Set oRng = .Columns(1).Find("AH*", LookIn:=xlValues, LookAt:=xlWhole)
 
    If Not oRng Is Nothing Then
        Set oRng = Range(oRng, .Cells(.Rows.Count, 6).End(xlUp))
 
        oRng.Select
    Else
        MsgBox "Pas de valeur ""AH"" dans la première colonne."
    End If
 
End With
End Sub

Rien de très sorcier, quand on a envie !

Voila, n'hésite pas à revenir vers moi !

Cordialement,
Kimy

[r4v3n]

Bonjour Kimy_Ire,

Tout d'abord, merci pour ta réponse. J'ai approfondis mes recherches après avoir poster mon message, et je suis partis sur des filtres sur la colonnes "N°voies", pour effacer les cellules vides. Je faisait ensuite une sélection d'un coté, puis de l'autre. Enfin bon, il est vrai que je n'ai pas penser à la fonction "rechercher". En suivant tes explications, je n'ai pas réussi à retrouver ton bout de code avec tes fonctions. Je suis peut être mauvais aussi sur "excel" ^^

Cordialement,

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  'Selection de la la colonne "A"
    x = Range("A65536").End(xlUp).Row
    Range("A13" & ":" & "A" & x).Select
    'Selection des colonnes sur la droite
    Range(Selection, Selection.End(xlToRight)).Select

Il serait plus simple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Range(Cells(13,1).End(xlToRight),Cells(Rows.Count,1).End(xlUp)).Select

Je voudrais donc savoir si il était possible de dire à ma macro de commencer à selectionner à partir de la 1ere cellule "pleine" qui à pour "dénomination" "AH".

Si je comprend bien l'exemple que tu à donné, rechercher "AH" ne te donnera pas la ligne 10 (qui semble être celle que tu souhaite).
A ta place, je rechercherai donc plutôt "Ref" et je prendrais la ligne suivante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Y1 As Long
Y1 = Range("A1:A" & Rows.Count).Find("Ref").Row + 1
Range(Cells(Y1,1).End(xlToRight),Cells(Rows.Count,1).End(xlUp)).Select

[r4v3n]

Bonjour Menhir,

Il est vrai que ta ligne de code est plus simple que les 5 miennes ! Je vais l'enregistrer pour pouvoir l'utiliser par la suite.

Pour ce qui est de la ligne 10, non non je n'en ai pas besoin, ce qui m’intéresse commence à la ligne 13 et le code de "Kimy_Ire" fonctionne très bien. J'aimerais juste qu'il me donne deux ou trois autres détails pour retrouver ce bout de code.

En tout cas, merci de ta réponse.

Cordialement,

[Menhir]

Pour ce qui est de la ligne 10, non non je n'en ai pas besoin, ce qui m’intéresse commence à la ligne 13

Dans ce cas, dans mon code, remplace Ref par AH et enlève le +1.
En une ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Range("A1:A" & Rows.Count).Find("AH").End(xlToRight),Cells(Rows.Count,1).End(xlUp)).Select

[r4v3n]

Je ne sais pas si c'est moi qui à vraiment du mal, mais il ne veut pas executer ta ligne de code. Il voit une erreur.