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 : 15'067
Appréciations reçues : 896
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 : 15'067
Appréciations reçues : 896
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 : 15'067
Appréciations reçues : 896
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 : 15'067
Appréciations reçues : 896
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 : 15'067
Appréciations reçues : 896
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
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Index Equiv
    par brunyon » 27 juin 2014, 21:44 » dans Excel - VBA
    3 Réponses
    209 Vues
    Dernier message par brunyon
    28 juin 2014, 21:02
  • index et equiv
    par ph91480 » 15 octobre 2014, 19:39 » dans Excel - VBA
    4 Réponses
    231 Vues
    Dernier message par ph91480
    20 octobre 2014, 14:24
  • index et equiv
    par TouToune » 7 août 2015, 17:22 » dans Excel - VBA
    3 Réponses
    162 Vues
    Dernier message par TouToune
    9 août 2015, 19:50
  • Si index equiv
    par nojamandre » 19 juillet 2017, 21:45 » dans Excel - VBA
    16 Réponses
    583 Vues
    Dernier message par Ergotamine
    22 juillet 2017, 13:51
  • Index / Equiv
    par naio » 22 octobre 2019, 16:45 » dans Excel - VBA
    4 Réponses
    51 Vues
    Dernier message par naio
    22 octobre 2019, 17:08
  • Index/equiv ? #N/A
    par pika83 » 30 novembre 2019, 14:16 » dans Excel - VBA
    9 Réponses
    96 Vues
    Dernier message par xorsankukai
    30 novembre 2019, 17:09