VBA problème de programation

Résolu
RuniK -  
Bonjour,

Voila je dispose d'un tableaux de plusieur ligne est au bout de chaque ligne j'ai une case a cocher faisant reference a la cellule de gauche case en Q1 vrai faux en R1.
Je voudrait une macro qui m'ouvre une nouvel feuille et me copie toute les lignes avec une case cocher dans cette feuille dans l'ordre de la feuille de départ.

J'ai tester plusieurs choses et la j'avoue je sèche ^^

Merci d'avance
Configuration: Windows XP / Internet Explorer 6.0

4 réponses

  1. RuniK
    Je n'ai pas excel 2007
    2. RuniK
      @pijakuhttp://www.cijoint.fr/cjlink.php?file=cj201003/cijQWbB9ME.xls

      voila encore merci pour ton implication
    3. pijaku Modérateur
      Euh........ Comment dire!! Je n'y comprends rien vraiment car chez moi cela fonctionne. As tu pensé par hasard à cocher quelques "cases à cocher" avant de lancer la macro?
    4. RuniK
      @pijakuHeuuu ... bon oki je sort bon ba oui en effet c'est bon j'ai juste quelque petit réglage je croit que la macro n'aime pas les cellules fusionées comme R4 ou R12 il me prend qu'une ligne mais bon c'est pas bien méchant
      En tout cas merci bcp pour ton aide ^^
      Sa me rend un grand service ^^
    5. pijaku Modérateur
      de rien.
      @+
  2. RuniK
    J'ai résolue le probleme il y avait un espace qui ce balader dans le nom de ma feuille. donc j'ai plus de Bug mais quand je fait la manip il m'ouvre bien une nouvelle feuille mais elle est vide .
  3. RuniK
    J'ai essayer mais malheuresement cela ne fonctionne pas.

    jvais essayer d'être plus précis. Le tableau va de A6 à O61 Les cas a cocher de Q6 à Q61 les formats de contrôle des cases à cocher de R6 à R61
    La feuille avec ce tableau ce nomme "Feuille de Saisie"

    Voilà si sa peut aider
    1. pijaku Modérateur
      Voici le code corrigé et adapté à ta situation

      Sub recap_vrai()
      Dim derniereligne As Integer, i As Integer, derlig As Integer
      Sheets.Add
      With Sheets("Feuille de saisie")
      derniereligne = .Range("R65536").End(xlUp).Row
      For i = 6 To 61
      If .Range("R" & i) = True Then
      derlig = Range("R65536").End(xlUp).Offset(1, 0).Row
      .Range(.Cells(i, 1), .Cells(i, 18)).Copy Range("A" & derlig)
      End If
      Next
      End With
      End Sub
    2. RuniK
      @pijakuIl me met le méssage d'erreur suivant :

      Erreur d'execution '9' L'indice n'apartient pas a la selection et quand je fait débogage il me surligne la ligne suivante "With Sheets("Feuille de saisie")"

      Voilà et merci encore pour ton aide ^^
    3. pijaku Modérateur
      Et bien mets une majuscule à "saisie" peut être...
  4. pijaku Modérateur
    Bonjour,
    Essaie quelque chose comme cela : 
    Sub recap_vrai()
Dim derniereligne As Integer, i As Integer
Sheets.Add
With Sheets("Nom_de_ta_feuille_contenant_les_données")
derniereligne = .Range("A65536").End(xlUp).Row
For i = 2 To derniereligne
If .Cells(i, 18).Value = "VRAI" Then
.Rows(i).Copy Range("A65536").End(xlUp).Offset(1, 0).Row
End If
Next
End With
End Sub

    Discussions similaires

    VBA excel : résoudre problème de capacité.
    Juan Pedro

    9 réponses
    Méthode find dans VBA - Recherche de données sous Excel
    baissaoui

    0 réponse
    erreur d'execution 9, l'indice n'appartient pas à la sélection
    isidoh

    18 réponses
    "L'indice n'appartient à la sélection" + VBA
    fleur.31

    2 réponses
    Erreur d'exécution 13 Incompatibilité de type
    grace

    5 réponses