Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Ce code ne semble pas cohérent. Essaie de joindre le code d'origine (si ça fonctionnait) parce que là... Il y a de forte chance que tu n'aies pas beaucoup d'autre réponse.
Déjà la première condition commence par :
VB:
if ActiveCell.Activate and...
Alors ça ne donne pas bien envie d'aller plus loin !
A+
Bonjour,
Ce code ne semble pas cohérent. Essaie de joindre le code d'origine (si ça fonctionnait) parce que là... Il y a de forte chance que tu n'aies pas beaucoup d'autre réponse.
Déjà la première condition commence par :
VB:
if ActiveCell.Activate and...
Alors ça ne donne pas bien envie d'aller plus loin !
A+
Bonsoir,
Je pense que sur ce 2ème document il y a une erreur. (Si j'ai bien compris la finalité de la macro...)
En effet si je double clic sur la cellule B2, la macro ne renvoie que 2 lignes.
Or j'en compte 3 :
2 sur Planification_EOBD_matrices et 1 sur Planification_Safety_N1_diagt
Ma correction : (Je ne me suis interessé qu'à la Sub columns_2()
VB:
Option Explicit
Sub columns_2()
Dim Arr, ArrT, b(1 To 4), i%, Ws%, iRL%, kC%, kT%
Columns("H:M").ClearContents
Arr = Application.Transpose(Worksheets("NEW_VB_config").Range("O2:O12")) 'nom des 11 feuilles
For i = 2 To 3000
For Ws = 1 To 11 'boucle sur les feuilles
If Arr(Ws) <> "" Then
iRL = Range("H" & Rows.Count).End(xlUp).Row + 1
With Worksheets(Arr(Ws))
If .Range("AO" & i).Value <> "" Then
ArrT = .Range("A1:F1").Value: .Range("H1:M1") = ArrT
For kT = 1 To 97 Step 6
If Range("A" & kT) = .Range("a" & i) Then
Select Case ActiveCell.Row Mod 6
Case 2 To 5
For kC = 1 To 6
Cells(iRL, kC + 7) = .Cells(i, kC)
Next
End Select
End If
Next
End If
End With
End If
Next Ws
Next i
End Sub
Si c'est Ok, YAPUKA faire le même travail pour les 3 autres colonnes...
Pour continuer et vérifier ce que j'ai fait j'ai besoin de 2 tableaux complets avec de données qui renvoient quelque chose si je teste les 4 colonnes (BCDE) donc avec des données colonnes AO sur plusieurs feuilles. Eviter des données trop jumelles faites par copier /Coller si les 2 tableaux sont identiques et les colonnes aussi, ça ne peut pas mettre en évidence les erreurs...
A+
Bonsoir,
Je pense que sur ce 2ème document il y a une erreur. (Si j'ai bien compris la finalité de la macro...)
En effet si je double clic sur la cellule B2, la macro ne renvoie que 2 lignes.
Or j'en compte 3 :
2 sur Planification_EOBD_matrices et 1 sur Planification_Safety_N1_diagt
Ma correction : (Je ne me suis interessé qu'à la Sub columns_2()
VB:
Option Explicit
Sub columns_2()
Dim Arr, ArrT, b(1 To 4), i%, Ws%, iRL%, kC%, kT%
Columns("H:M").ClearContents
Arr = Application.Transpose(Worksheets("NEW_VB_config").Range("O2:O12")) 'nom des 11 feuilles
For i = 2 To 3000
For Ws = 1 To 11 'boucle sur les feuilles
If Arr(Ws) <> "" Then
iRL = Range("H" & Rows.Count).End(xlUp).Row + 1
With Worksheets(Arr(Ws))
If .Range("AO" & i).Value <> "" Then
ArrT = .Range("A1:F1").Value: .Range("H1:M1") = ArrT
For kT = 1 To 97 Step 6
If Range("A" & kT) = .Range("a" & i) Then
Select Case ActiveCell.Row Mod 6
Case 2 To 5
For kC = 1 To 6
Cells(iRL, kC + 7) = .Cells(i, kC)
Next
End Select
End If
Next
End If
End With
End If
Next Ws
Next i
End Sub
Si c'est Ok, YAPUKA faire le même travail pour les 3 autres colonnes...
Pour continuer et vérifier ce que j'ai fait j'ai besoin de 2 tableaux complets avec de données qui renvoient quelque chose si je teste les 4 colonnes (BCDE) donc avec des données colonnes AO sur plusieurs feuilles. Eviter des données trop jumelles faites par copier /Coller si les 2 tableaux sont identiques et les colonnes aussi, ça ne peut pas mettre en évidence les erreurs...
A+
au double clique sur b2 on vas pas recuperer 2 ligne, mais on va recuperer toute les lignes dont leurs range a1 = range(a1) du tableau et dont le premier chifre de leurs cellule range("ao") = 1
si on clique sur b3 c le mm principe mais on va recuperer tt les lignes dont le premier chifre de la cellule (ao )= 2
pour b4 mm chose mais on recupere tt les lignes odnt le premier chifre de la cellule (AO) =3
b5 on recupere te les lignes dont le premier chifre dans la cellule (AO) =4
si on clique sur c2 on recupere tt les ligne dont leur range("a1") = range("a1") de la feuille de visualisation et dont le DEUXIEM chiffre de la cellule (A1)=1
..
.
.
c ca l'objectif de la macro
je vais tester votre code
merci encore pour votre reponse
je vais mettre au desous le fichier au complet
le fichier 2 est au complet sauf que ya pas tt les activites
je vais les mettre dans ce 3 fichier
voici le fichier au complet , pour les cellule ao dans chque feuille vous pouvez mettre les un nombre de 4 chifre de 1 a 4 exemple '1111' 1234, 3411 pour tester le programme
le problem est quand je double clic par exemple sur range b2 je veux recupere tt les activities dont le premier chiffre de range ao est =1 (et ca ce le fait super bien) mais aussi il ne doit recuperer que les activities dont range(a1)=range(a1) (nom de projet) de la feuilles de synthese
et si je passe au 2 eme tabelau mm principe mais il recupere que les activities dont range(a1) des feuilles = range("a7") de la feuille de synthese
ainisi de suit pour les autres tableaux
sauf que dans votre programme quand je double clic sur b8 il recupere quand mm les activities liee a range (a1) alors que je veux recuperer que les activtie lilee a range(a7)
mm chose pour les autres tableaux
je vous remercie pour le temps que vous avez consacre pour mon fichiers
je sais que je vous ai trop embêter
je m'excuse
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.