INDEX + EQUIV Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sophiane
Jeune membre
Jeune membre
Messages : 39
Inscrit le : 11 mars 2016
Version d'Excel : 2003

Message par sophiane » 23 mars 2016, 08:07

j'ai oublié de preciser que la cellule B1 est variable en faite ici la valeur est 5 mais cela change selon la semaine que je renseigne

bonjour Steelson,

c'est bon j'ai trouvé le code qui fonctionne

voici

Range("A5:B5").Resize(Range("B1")).FillDown
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'575
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 23 mars 2016, 08:19

sophiane a écrit :
Range("A5:B5").Resize(Range("B1")).FillDown
Merci pour ce tuyau !

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
s
sophiane
Jeune membre
Jeune membre
Messages : 39
Inscrit le : 11 mars 2016
Version d'Excel : 2003

Message par sophiane » 23 mars 2016, 10:50

steelson,

à tout hasard sais-tu comment concatener en VBA

j'aimerais rajouter une concatenation au code ci-dessous avec les cellule C1 et A1 de l'onglet SIMULATEUR

Dim References As Object
Set References = CreateObject("Scripting.Dictionary")
Sheets("SIMULATEUR").Select
lig = Range("D5").Row
col = Range("D5").Column
Do Until Cells(lig, col).Value = ""
Do Until Cells(lig, col).Value = ""
References(Cells(lig, col).Value) = Cells(lig, col).Value
col = col + 1
Loop
col = Range("C5").Column
lig = lig + 1
Loop
Sheets("TEST").Select
Columns("A:A").ClearContents
Range("A1") = "MATIERE"
Range("B1") = "STOCK DISPO"
Range("C1") = "QUANTITE BESOIN"
Range("D1") = "STOCK RESTANT"
Cells(Range("A2").Row, Range("A2").Column).Resize(References.Count) = Application.Transpose(References.Items)
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'575
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 23 mars 2016, 11:04

sophiane a écrit :à tout hasard sais-tu comment concatener en VBA
J'utilise tout simplement &
exemple
Cells(1,3) = Cells(1,1) & Cells(1,2)
Modifié en dernier par Steelson le 23 mars 2016, 15:08, modifié 1 fois.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
s
sophiane
Jeune membre
Jeune membre
Messages : 39
Inscrit le : 11 mars 2016
Version d'Excel : 2003

Message par sophiane » 23 mars 2016, 11:18

oui mais dans le code que je te mentioné sa ne fonctionne pas à quelle niveau dois-je faire cela
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'575
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 23 mars 2016, 15:11

J'avoue que je suis une peu perdu ... je n'avais pas regardé ton code qui du reste est bien écrit ! tu dois donc avoir un niveau assez intéressant en VBA.

J'ai juste répondu sur l'opérateur de concaténation ...

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
s
sophiane
Jeune membre
Jeune membre
Messages : 39
Inscrit le : 11 mars 2016
Version d'Excel : 2003

Message par sophiane » 23 mars 2016, 15:23

pas de souci je vais essayer de trouver une solution
s
sophiane
Jeune membre
Jeune membre
Messages : 39
Inscrit le : 11 mars 2016
Version d'Excel : 2003

Message par sophiane » 23 mars 2016, 15:43

sais tu comment copier coller une valeur et non une formule ?
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'575
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 23 mars 2016, 17:00

1ère possibilité : faire un apprentissaage de collage spécial valeurs !
Ceci doit aussi fonctionner :
Cells(i,j).copy destination:= ______________ 
à essayer sur un bout de fichier

Non, la seconde possibilité recopie aussi les formules.
Bon cela doit être simple, je vais chercher ...

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'575
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 23 mars 2016, 17:38

N'hésite pas à rechercher sur le forum des réponses approchées :

http://forum.excel-pratique.com/excel/c ... l?#p120562
Sub Recopie()
  Sheets("recap").Range("B30:F40").ClearContents
  Sheets("mvts").Range("B14:F19").Copy
  Sheets("recap").Range("B8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub
 

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • index et equiv
    par TouToune » 7 août 2015, 17:22 » dans Excel - VBA
    3 Réponses
    156 Vues
    Dernier message par TouToune
    9 août 2015, 19:50
  • Index/equiv ? #N/A
    par pika83 » 30 novembre 2019, 14:16 » dans Excel - VBA
    9 Réponses
    86 Vues
    Dernier message par xorsankukai
    30 novembre 2019, 17:09
  • INDEX-EQUIV
    par lucie1206 » 25 octobre 2016, 14:41 » dans Excel - VBA
    5 Réponses
    228 Vues
    Dernier message par Steelson
    26 octobre 2016, 16:48
  • Index + equiv
    par ruliann » 18 avril 2018, 13:18 » dans Excel - VBA
    3 Réponses
    259 Vues
    Dernier message par ruliann
    20 avril 2018, 17:46
  • Index Equiv N/A
    par PEEMEH » 3 octobre 2019, 16:30 » dans Excel - VBA
    5 Réponses
    81 Vues
    Dernier message par tulipe_4
    8 octobre 2019, 13:43
  • Index Equiv
    par Botis » 23 octobre 2019, 15:17 » dans Excel - VBA
    6 Réponses
    74 Vues
    Dernier message par Botis
    23 octobre 2019, 18:32