Valeur à partir de deux variable
Résolu
mat0608
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
mat0608 Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
mat0608 Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Valeur à partir de deux variable
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
1 réponse
Bonjour,
Essaie comme cela
A+
Essaie comme cela
Sub Test()
Dim Ligne As Long, LigneC As Long
Dim Col As Integer
LigneC = 2
For Ligne = 1 To Range("A" & Rows.Count).End(xlUp).Row
Select Case Range("B" & Ligne).Value
Case "402": Col = 5
Case "403": Col = 8
Case Else: Exit For
End Select
Cells(LigneC, Col) = Range("A" & Ligne).Value
Cells(LigneC, Col + 1) = Range("C" & Ligne).Value
LigneC = LigneC + 1
Next Ligne
End Sub
A+
le code que vous m´avez fournit ne vient pas incrémenter mon tableau mais en ajoute un autre plus bas pour la valeur 403.
01/11/2016 402 35,00 date 402 date 403
01/11/2016 403 25,00 01/11/2016 01/11/2016
02/11/2016 402 5,00 02/11/2016 02/11/2016
02/11/2016 403 1.203,77 03/11/2016 03/11/2016
03/11/2016 402 968,24 04/11/2016 04/11/2016
03/11/2016 403 23,09 05/11/2016 05/11/2016
Dans le cas contraire, il te faudra joindre un fichier avec une présentation plus complète de tes données.
Pour cela, tu pourra utiliser https://www.cjoint.com/
Rq: j'ai supposé que les dates étaient renseignées dans les colonnes E, H, etc...
A+
Maintenant il faut que je comprenne comment tu as fais!