× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 problème macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Titi12
  Posté le 01/04/2014 @ 18:00 
Aller en bas de la page 
Petit astucien

Bonjour les macroteurs,

J'ai un petit soucis. dans le code ci-dessous, j'aimerai que seules les cellules non-vides de la plage G18:G28 alimentent la tableau DataMaj

Sub tmpArray()
Dim tmpArray(), DataMaJ As Variant
Sheets("Param").Range("G18:G28").Select
tmpArray = Selection
Dim i As Long
For i = LBound(tmpArray, 1) To UBound(tmpArray, 1)
DataMaJ = tmpArray(i, 1)
Next
'DataMAJ = Array(2008, 2009, 2010, 2011, 2012, 2013, 2014, "Test")' le résultat que je souhaite
End Sub

Éternelle reconnaissance à celui qui aura la solution.

@++

Publicité
galopin01
 Posté le 01/04/2014 à 19:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Une solution :

Sub Test()
Dim Tablo, DataMaJ(),i%
Tablo = Sheets("Param").Range("G18:G28")
Set o = CreateObject("Scripting.Dictionary")
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
If Not Tablo(i, 1) = "" Then o(Tablo(i, 1)) = ""
Next i

DataMaJ = o.keys

'Exploitation du résultat
For i = LBound(DataMaJ) To UBound(DataMaJ)
Debug.Print DataMaJ(i)
Next
[C2].Resize(o.Count, 1) = Application.Transpose(o.keys)
End Sub

A+



Modifié par galopin01 le 01/04/2014 19:13
Titi12
 Posté le 01/04/2014 à 19:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci, ça fonctionne. C'est acquit, tu as ma reconnaissance éternelle. Je n'aurai plus à modifier le code tous les ans.

@++

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
27,99 €Switch gigabit Netgear GS108, 8 ports à 27,99 €
Valable jusqu'au 21 Septembre

Amazon propose actuellement  le switch Gigabit Netgear GS108GE 8 ports (10/100/1000) à 27,99 € livré gratuitement. Le switch est garanti 5 ans.


> Voir l'offre
34,99 €Clé USB 3.1 SanDisk Extreme Pro 128 Go (420 Mo/s) à 34,99 €
Valable jusqu'au 22 Septembre

Amazon fait une promotion sur la clé USB 3.1 Sandisk Extreme Pro 128 Go qui passe à 34,99 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 55 €. Cette clé USB 3.1 (compatible usb 3.0) est extrèmement rapide puisqu'elle offre des débits jusqu'à 420 Mo/s en lecture et 380 Mo/s en écriture. Pratique, son connecteur rétractable vous évitera d'avoir à manipuler (et perdre ?) un bouchon.


> Voir l'offre
58,26 €SSD Crucial MX500 500 Go à 58,26 € livré
Valable jusqu'au 20 Septembre

Amazon Royaume-Uni propose actuellement le SSD Crucial MX500 500 Go à 47,99 £. Avec la conversion en euros et la livraison en France, il vous reviendra à 58,26 € livré. On le trouve ailleurs à partir de 70 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 3 ans.

Rappelons que vous pouvez utiliser votre compte Amazon France sur Amazon UK et qu'il n'y a pas de douane.


> Voir l'offre

Sujets relatifs
Probleme excel - tri dans macro Excel 2007
probleme macro excel 2010
problème de macro
Problème macro open office
probleme macro fermeture de fichier !!
Problème macro
probleme avec macro sur excel 2007
Problème macro
problème macro
petit problème formule ou macro
Plus de sujets relatifs à problème macro
 > Tous les forums > Forum Bureautique