VBA problème de programation

Résolu/Fermé

RuniK - 9 mars 2010 à 10:03
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 9 mars 2010 à 14:27

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

A voir également:

VBA problème de programation
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Erreur exécution 13 : incompatibilité de type ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
9 mars 2010 à 10:30

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

Réponse 2 / 4

RuniK
9 mars 2010 à 11:05

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
9 mars 2010 à 12:32

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

RuniK > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
9 mars 2010 à 13:24

Il 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 ^^

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
9 mars 2010 à 13:28

Et bien mets une majuscule à "saisie" peut être...

Réponse 3 / 4

RuniK
9 mars 2010 à 13:35

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 .

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
9 mars 2010 à 13:37

Peux tu placer ici (grâce à https://www.cjoint.com/ ou http://www.cijoint.fr/ ) une copie de ton classeur (version excel <2007) sans données confidentielles, la macro fonctionnant bien chez moi...

Réponse 4 / 4

RuniK
9 mars 2010 à 13:43

Je n'ai pas excel 2007

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
9 mars 2010 à 13:46

Peux tu placer ici (grâce à https://www.cjoint.com/ ou http://www.cijoint.fr/ ) une copie de ton classeur

RuniK > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
9 mars 2010 à 14:10

http://www.cijoint.fr/cjlink.php?file=cj201003/cijQWbB9ME.xls

voila encore merci pour ton implication

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
9 mars 2010 à 14:15

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?

RuniK > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
9 mars 2010 à 14:26

Heuuu ... 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 ^^

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
9 mars 2010 à 14:27

de rien.
@+

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel