Excel vba probleme avec offset

marcoturbo Messages postés 27 Statut Membre -  
marcoturbo Messages postés 27 Statut Membre -
Bonjour a tous,

J'ai un petit soucis avec la commande offset, j'ai un tableau de données sur 4 colonnes.
J'ai une boucle qui parcours la première colonne et qui me récupère les données comprises entre 1200 et 1250 et qui me copie la ligne entière sur une autre feuille.

Je voudrais qu'au lieu de me copier la ligne entière, ça me copie les 3 premières
colonnes.

Je pense que la réponse se situe du coté d'offset mais pas moyen de trouver la bonne syntaxe.

un fichier exemple joint si je n'ai pas été assez clair.

Merci d'avance.

https://www.cjoint.com/c/EFbqUxY72zR

3 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    Essaie avec : 
    cel.resize(,3).Copy

    eric
    1
  2. marcoturbo Messages postés 27 Statut Membre
     
    impeccable, rien d'autre a dire.

    un grand merci.

    tiens, par la même occasion, je fais une recherche avec un seul critère ( sur la colonne A ) , si je voudrais rajouter un autre critère ( sur la conne C ) comment faire ?

    merci
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Tu sais ce qu'elle te dit la conne C ? ;-)

      Tu devrais aussi limiter la boucle au nombre de lignes nécessaires : 
          Dim cel As Range, derlig As Long
    With Sheets("Feuil5")
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        For Each cel In .[A1].Resize(derlig)
            If cel.Value > 1200 And cel.Value < 1250 Then
                If cel.Offset(, 2) = "Hall Sportif de 16H30 A 18H00" Then
                    cel.Resize(, 3).Copy Destination:=Sheets("Feuil3").Cells(Sheets("Feuil3").Range("A65536").End(xlUp).Row + 1, 1)
                End If
            End If
        Next cel
    End With

      eric
      0
  3. marcoturbo Messages postés 27 Statut Membre
     
    c'est parce que elle m'embêtait la COLONNE C, je l'ai traité de conne..

    Fin du hors sujet..

    Merci eric, ca marche impec ;)
    0
    1. marcoturbo Messages postés 27 Statut Membre
       
      dernière question Eric, si tu passe par la, 

      cel.Resize(, 3).Copy Destination:=Sheets("Feuil3").Cells(Sheets("Feuil3").Range("A65536").End(xlUp).Row + 1, 1)


      actuellement , ça me colle sur la feuille 3 en colonne A.

      en mettant plusieurs If, j'aimerais mettre plusieurs résultats sur la même feuille. 

                    If cel.Value > 1000 And cel.Value < 1250 Then
                      If cel.Offset(, 2) = "Hall Sportif de 18H45 A 20H15" Then
                          cel.Resize(, 3).Copy Destination:=Sheets("Feuil3").Cells(Sheets("Feuil3").Range("A65536").End(xlUp).Row + 1, 1)
                      End If
                    End If
                  
                    If cel.Value > 1000 And cel.Value < 1250 Then
                      If cel.Offset(, 2) = "Hall Sportif de 16H30 A 18H00" Then
                          cel.Resize(, 3).Copy Destination:=Sheets("Feuil3").Cells(Sheets("Feuil3").Range("A65536").End(xlUp).Row + 1, 1)
                      End If
                  End If


      genre, le premier résultat en colonne A, le second en colonne F, ect..

      merci d'avance.
      0