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

Résolu Position d'un chiffre selon critère

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Mitch
  • Date de début Date de début

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
M

Mitch

XLDnaute Occasionnel
Bonjour, ce bout de code me positionne le chiffre 1 suivant la colonne A, j'aimerais avoir le chiffre 2 suivant la colonne A et B
Je joint mon fichier pour mieux me faire comprendre

Merci


Dim derlig&, mondico As Object
Set mondico = CreateObject("scripting.dictionary")
With Sheets("declinaisons")
derlig = .Range("A" & .Rows.Count).End(xlUp).Row
For Each c In .Range("A2:A" & derlig)
If Not mondico.exists(c.Value) Then
mondico(c.Value) = mondico(c.Value)
c.Offset(, 11) = 1
c.Offset(, 12) = 1
End If
Next c
End With
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Position d'un chiffre selon critère

Bonsoir Mitch,

Un essai de réponse qui ne répond pas tout à fait à la question puisqu'il utilise des formules et non du code VBA 🙁

En cellule P2 et Q2, placez la valeur 1.

En cellule P3, la formule suivante à copier vers le bas:
Code: 
=SI(A3<>A2;1;"")

En cellule Q3, la formule suivante à copier vers le bas:
Code: 
=SI(P3=1;1;SI(GAUCHE(B3;TROUVE(",";B3)-1)=GAUCHE(B2;TROUVE(",";B2)-1);"";NB.SI.ENS($A$2:A2;A3;$M$2:M2;">=1")+1))

nb: le tableau doit être trié suivant la colonne ID en clef une et suivant la colonne Options en clef deux.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Position d'un chiffre selon critère

Bonjour Mitch,

Deux macros devant aboutir au résultat (code dans module 1)
Sub AjouteNumDFormul() qui passe par des formules (voir post #2) et Sub AjouteNumDico() utilisant un objet scripting.dictionary.

Code AjouteNumDFormul() :
VB: 
Sub AjouteNumDFormul()
Const Sep = "]"
Dim Zone As Range
With Sheets("declinaisons")
  Set Zone = .Range("A" & .Rows.Count).End(xlUp)
  Set Zone = .Range(.Range("A1"), Zone.Offset(, 10))
  Zone.Sort key1:=Zone.Columns(1), key2:=Zone.Columns(2), Header:=xlYes
  
  .Range("L2") = 1: .Range("M2") = 1
  Set Zone = .Range("A" & .Rows.Count).End(xlUp)
  Set Zone = .Range(.Range("A3"), Zone)
  
  Zone.Offset(, 11).FormulaR1C1 = "=IF(RC[-11]<>R[-1]C[-11],1,"""")"
  Zone.Offset(, 12).FormulaR1C1 = _
    "=IF(RC[3]=1,1,IF(LEFT(RC[-11],FIND("","",RC[-11])-1)=" & _
    "LEFT(R[-1]C[-11],FIND("","",R[-1]C[-11])-1),"""",COUNTIFS" & _
    "(R2C1:R[-1]C[-12],RC[-12],R2C13:R[-1]C,"">=1"")+1))"
  Zone.Offset(, 11).Resize(, 2).Value = Zone.Offset(, 11).Resize(, 2).Value
End With
End Sub

Code AjouteNumDico() :
VB: 
Sub AjouteNumDico()
Const Sep = "]"
Dim mondico, Zone As Range, xCell As Range, xID, xCoul, nMax
Set mondico = CreateObject("scripting.dictionary")

With Sheets("declinaisons")
  Set Zone = .Range("A" & .Rows.Count).End(xlUp)
  Set Zone = .Range(.Range("A1"), Zone.Offset(, 10))
  Zone.Sort key1:=Zone.Columns(1), key2:=Zone.Columns(2), Header:=xlYes

  Set Zone = .Range("A" & .Rows.Count).End(xlUp)
  Set Zone = .Range(.Range("A2"), Zone)
  For Each xCell In Zone
    xID = xCell.Value
    xCoul = Left(xCell.Offset(, 1), InStr(xCell.Offset(, 1), ",") - 1) & Sep
    If Not mondico.exists(xID) Then
      mondico(xID) = "1" & Sep & xCoul
      xCell.Offset(, 11) = 1: xCell.Offset(, 12) = 1
    Else
      If InStr(mondico(xID), xCoul) = 0 Then
        nMax = Val(Left(mondico(xID), InStr(mondico(xID), Sep) - 1)) + 1
        mondico(xID) = nMax & Sep & Mid(mondico(xID), InStr(mondico(xID), Sep) + 1) & xCoul
        xCell.Offset(, 11) = "": xCell.Offset(, 12) = nMax
      Else
        xCell.Offset(, 11) = "": xCell.Offset(, 12) = ""
      End If
    End If
  Next xCell
  End With
End Sub

nb: le tableau est trié via les macros
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Position d'un chiffre selon critère

Bonjour mapomme, c'est exactement ce que je voulais en VBA car en plus j'avais omis de préciser que s'il y avait une 3eme couleur il fallait en tenir compte, je te souhaite une bonne journée
Merci
 
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

  • Question Question
XL 2021 Erreur "l'indice n'appartient à la selection"
Réponses
10
Affichages
744
treza88
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
742
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
653
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
767
youguybass
Y
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
782
lynyrd
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
775
patricktoulon
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
P
  • Question Question
XL 2010 résultat de somme multiple dans texbox
Réponses
2
Affichages
725
Pensinf4204
P
R
  • Résolu(e)
XL 2019 amélioration d'une macro (actualisation auto et automatisation)
Réponses
11
Affichages
840
rh.finances
R
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
2 K
melltel
M
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
909
TooFatBoy
I
  • Question Question
Microsoft 365 SOMMEPROD en vba excel
Réponses
12
Affichages
754
iliess
I
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
732
kiki29
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
426
Pierreavecunp
P
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
731
job75
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…