Discussion :

[vercingetorix76]

Bonjour à tous

Je suis votre forum depuis de nombreuses années sans avoir besoin de poser de questions, avec différents bout de code récupérer par çi par là j'ai toujours réussi à réaliser ce que je voulais faire, mais là je bute surement sur un problème simple mais dont je n'arrive pas à trouver la solution.

Je dispose d'une feuille excel dans laquelle je pioche des informations que je colle dans un formulaire et que j'édite par la suite. j'efface toutes les données et je passe à une autre ligne, je colle les autres informations, j'imprime j'efface etc...
La je cherche à filtrer les informations ayant un point commun des caractères identique dans leurs appellations le tout par l'intermédiaire d'un userform (jusque là pas de problème)
Je garde que les cellules visibles de mon filtre auto
Je me place sur la première cellule visible, je copie et imprime mon formulaire.
Mais lorsque je dois passer à la ligne suivante la macro s'arrête car en passant d'une feuille à l'autre la cellule de départ donc la première active ne sait plus ou elle est.
Quelqu'un aurait il une solution pour remédier a cette perte de "localisation"

Voilà la macro de base sans la copie et l'impression qui marche mais sans changer de feuille
Comment gérer le passage entre les feuilles ?

J'éspère avoir été assez clair, merci de m'apporter votre aide

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
Sub Macrotest()
'
' Macrotest
        Selection.AutoFilter Field:=5, Criteria1:="=***XX****", Operator:=xlAnd
        'Placement sur la première cellule active visible
        Sheets("feuil1").Select
         Cells([_filterdatabase].Offset(1).SpecialCells(xlCellTypeVisible).Row, 5).Select
         'boucle jusqu'a la première cellule non vide  
 Do While Not (IsEmpty(ActiveCell))
             ' definition des variables
     Dim i As Integer
                i = ActiveCell.Row
            ActiveCell.Offset(1, 0).Select    
        Loop
End Sub

[defluc]

Tout d'abord, comme martelé dans ce forum, évites les "select".
D'autre part,

en passant d'une feuille à l'autre

je ne vois aucune instruction de changement de feuille.

[vercingetorix76]

Tout d'abord merci d'avoir répondu

Je sais que mon code n'est pas des plus réglementaire (autodidacte dans la prog).je vais regarder comment faire sans les "select".

pour ce qui est du passage du feuille à l'autre ce bout de code fonctionne sur une feuille j'aurais voulu l'adapter pour coller les informations de la colonnes 5 dans une autre feuille excel et faire une décalage d'une cellule vers le bas suite à une flitre auto que me renvoie une selection de ligne.

Si je e suis pas assez clair merci de me le dire.

[defluc]

Commences par aller voir dans la Faq, http://vb.developpez.com/faqvba/ tu devrais y trouver ce qu'il te faut.

[Philippe Tulliez]

Bonjour,
L'idéal c'est de travailler avec des variables objet.
Petit exemple : Ce n'est pas ce que tu cherches mais cela peux te donner une piste.
On a deux variables objet : L'une shtFrom représente la feuille dbClient et l'autre shtDest la feuille Feuil7 du classeur où se trouve le code VBA.
Filtre sur shtFrom, copie de la partie filtrée et collage vers shtDest

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macrotest()
  With ThisWorkbook
   Dim shtFrom As Worksheet: Set shtFrom = .Worksheets("dbClient")
   Dim shtDest As Worksheet: Set shtDest = .Worksheets("Feuil7")
  End With
  With shtFrom.Range("A1")
  .AutoFilter Field:=10, Criteria1:="BMW", Operator:=xlAnd
  .CurrentRegion.Copy shtDest.Range("A1")
  End With
End Sub

Tu peux créer un code qui boucle par ligne shtFrom.cells(Row,1)
Ou par exemple
Copie de Feuil7 plage A2:F10 ligne par ligne vers Feuil3 plage B15:B23

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macrotest()
  With ThisWorkbook
   Dim shtFrom As Worksheet: Set shtFrom = .Worksheets("Feuil7")
   Dim shtDest As Worksheet: Set shtDest = .Worksheets("Feuil8")
  End With
  Dim Row As Long, rowD As Long
  rowD = 15
  For Row = 2 To 10
   shtFrom.Range("A" & Row & ":F" & Row).Copy shtDest.Range("B" & rowD): rowD = rowD + 1
  Next
End Sub

[vercingetorix76]

bonjour,

Merci de ta réponse je vais regarder cela de plus près pour l'instant je suis sur une autre façon de faire. Formulaire devant être sorti rapidement.

Je m'y remet dès que possible.