Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Récupérer valeurs dynamique

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

Florian53

XLDnaute Impliqué
Bonjour à tous,

Désolé pour le titre peu explicite mais je ne vois pas trop comment formuler ma demande avec quelques mots.

Je voudrais récupérer et différencier des valeurs d'un tableau dynamique.

je suis désolé de pas en dire plus dans le message mais je n'arrive à l'expliquer clairement sans exemple.

Merci à vous
 

Pièces jointes

Trier par date Trier par votes
Bonjour à tous, après utilisation est comme indiqué par pierrejean je ne dispose pas du nombre de commutation mais du nombre de "Oui" divisé par 2.

Code: 
Sub traitement()
tablo = Sheets("Feuil1").Range("A3:D" & Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Row)
ReDim tabfin(3, 0)
tabfin(0, UBound(tabfin, 2)) = Range("A2")
lignes = 0
ok = True
off = True
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 4) = "oui" Then lignes = lignes + 1
If off And tablo(n, 3) <> "" Then
    tabfin(2, UBound(tabfin, 2)) = tablo(n, 3)
    off = False
End If
  If tablo(n, 4) = "non" And tablo(n, 3) <> "" Then
     If ok Then
         tabfin(1, UBound(tabfin, 2)) = tablo(n, 3)
         ok = False
     End If
  End If
   If InStr(tablo(n, 1), "Cycle") <> 0 Then
      tabfin(3, UBound(tabfin, 2)) = (lignes) / 2
      lignes = 0
     ReDim Preserve tabfin(3, UBound(tabfin, 2) + 1)
     tabfin(0, UBound(tabfin, 2)) = tablo(n, 1)
     ok = True
     off = True
  End If
Next
tabfin(3, UBound(tabfin, 2)) = lignes / 2
Sheets("Feuil2").Range("A2").Resize(UBound(tabfin, 2) + 1, UBound(tabfin, 1) + 1) = Application.Transpose(tabfin)
Sheets("Feuil2").Select
End Sub

J'ai essayé d'enlever le "/2" mais sa ne fonctionne pas, en fait je pense qu'il faudrait compter le nombre de valeur " OFF" qui se trouve dans chaque cycle. mais je ne vois pas comment récupérer cette valeur.

Est ce que quelqu'un à une idée ?
 
Vote positif 0 Vote négatif
Bonjour à tous, après utilisation est comme indiqué par pierrejean je ne dispose pas du nombre de commutation mais du nombre de "Oui" divisé par 2.

Code: 
Sub traitement()
tablo = Sheets("Feuil1").Range("A3:D" & Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Row)
ReDim tabfin(3, 0)
tabfin(0, UBound(tabfin, 2)) = Range("A2")
lignes = 0
ok = True
off = True
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 4) = "oui" Then lignes = lignes + 1
If off And tablo(n, 3) <> "" Then
    tabfin(2, UBound(tabfin, 2)) = tablo(n, 3)
    off = False
End If
  If tablo(n, 4) = "non" And tablo(n, 3) <> "" Then
     If ok Then
         tabfin(1, UBound(tabfin, 2)) = tablo(n, 3)
         ok = False
     End If
  End If
   If InStr(tablo(n, 1), "Cycle") <> 0 Then
      tabfin(3, UBound(tabfin, 2)) = (lignes) / 2
      lignes = 0
     ReDim Preserve tabfin(3, UBound(tabfin, 2) + 1)
     tabfin(0, UBound(tabfin, 2)) = tablo(n, 1)
     ok = True
     off = True
  End If
Next
tabfin(3, UBound(tabfin, 2)) = lignes / 2
Sheets("Feuil2").Range("A2").Resize(UBound(tabfin, 2) + 1, UBound(tabfin, 1) + 1) = Application.Transpose(tabfin)
Sheets("Feuil2").Select
End Sub

J'ai essayé d'enlever le "/2" mais sa ne fonctionne pas, en fait je pense qu'il faudrait compter le nombre de valeur " OFF" qui se trouve dans chaque cycle. mais je ne vois pas comment récupérer cette valeur.

Est ce que quelqu'un à une idée ?
 
Vote positif 0 Vote négatif
ça fonctionne très bien, merci.
Par contre est ce possible de faire un mix de la macro "Traite" et "Traite2" afin que les je ne perdre pas les informations de la macro "Traite" et que les informations se copie en feuil2 comme "Traite"?

Je souhaiterais avoir les informations de "traite2" dans la feuil2 en colonne "D" si possible.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
330
nightswan
  • Résolu(e)
Microsoft 365 récupérer la dernière ligne de chaque anomalie déclarée
Réponses
3
Affichages
156
natorp
S
  • Question Question
XL pour MAC récupérer les valeurs d’une plage colonne continue à partir d’une plage discontinue.
Réponses
12
Affichages
636
sergio_bzh
S
  • Question Question
XL 2016 VBA - Est-il possible de récupérer toutes les valeurs de filtre possible sans parcourir la colonne
7 8 9
Réponses
128
Affichages
3 K
nullosse
N
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
327
safranien
S
J
  • Question Question
XL 2019 Tableau croisé dynamique
Réponses
9
Affichages
215
cathodique
R
  • Question Question
XL 2019 Paramètres de la fonction GRANDE.VALEUR
Réponses
8
Affichages
413
Hamid FLISSI
D
  • Question Question
Microsoft 365 Lecture de données Arduino dans un USF Excel
Réponses
3
Affichages
208
sylvanu
S
  • Question Question
Microsoft 365 Trouver les correspondances de mots entre deux listes
2
Réponses
26
Affichages
1 K
Sylvaing
S
C
  • Question Question
Power Pivot ajouter une colonne libellée à full data
Réponses
3
Affichages
206
C'est Génial
C
  • Question Question
XL 2013 Récupération dernière valeurs
Réponses
9
Affichages
478
JHA
J
C
  • Résolu(e)
XL 2016 Valeurs d'un tableau à un autre et insérer dates
Réponses
6
Affichages
169
Collins
C
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
187
treza88
A
  • Question Question
XL 2010 Colorier les n plus grandes valeurs d'une plage EXCEL
3 4 5
Réponses
63
Affichages
1 K
TooFatBoy
S
  • Question Question
XL 2016 RESOLU MERCI Division des points en cas d'égalité
Réponses
2
Affichages
230
spacem33t
S
B
  • Question Question
Microsoft 365 Faire la somme de plusieurs tableaux
2
Réponses
17
Affichages
2 K
AtTheOne
J
  • Question Question
XL 2021 Probleme avec la fonction LIENHYPERTEXT
Réponses
6
Affichages
314
vgendron
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
299
aurejotrail
A
V
  • Question Question
Microsoft 365 Récupérer valeurs sous-totaux avec segments
Réponses
3
Affichages
167
scraper
S
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
283
NikonvsWild
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…