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
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
A voir également:
- VBA problème de programation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Récupérer valeur cellule vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 748
9 mars 2010 à 10:30
9 mars 2010 à 10:30
Bonjour,
Essaie quelque chose comme cela :
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
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
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 748
9 mars 2010 à 12:32
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
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
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 ^^
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 748
9 mars 2010 à 13:28
9 mars 2010 à 13:28
Et bien mets une majuscule à "saisie" peut être...
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 748
9 mars 2010 à 13:37
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...
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 748
9 mars 2010 à 13:46
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
9 mars 2010 à 14:10
http://www.cijoint.fr/cjlink.php?file=cj201003/cijQWbB9ME.xls
voila encore merci pour ton implication
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 748
9 mars 2010 à 14:15
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
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 ^^
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 748
9 mars 2010 à 14:27
9 mars 2010 à 14:27
de rien.
@+
@+
