VBA problème de programation
Résolu
RuniK
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
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
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
- Dépassement de capacité vba ✓ - Forum Excel
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
4 réponses
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
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
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 .
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...
Peux tu placer ici (grâce à https://www.cjoint.com/ ou http://www.cijoint.fr/ ) une copie de ton classeur
