Aide sur Excel

Fermé
percevan Messages postés 2 Date d'inscription mardi 7 juin 2005 Statut Membre Dernière intervention 10 novembre 2006 - 7 juin 2005 à 19:32
Armojax Messages postés 1855 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 novembre 2022 - 8 juin 2005 à 08:38
Bonjour
j'ai besoin d'aide dans Excel.
Comment faire une macro qui copie des données d'un tableau dans un autre tableau, mais dans la premiére celulle vide trouvée. Et qui n'efface pas les donnée deja existante dans le tableau
J'espére que ma question est claire.
Percevan

1 réponse

Armojax Messages postés 1855 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 novembre 2022 1 517
7 juin 2005 à 21:07
Hello Percevan,

Ci-dessous une proposition, pour l'exemple.
- On lit le tableau récepteur jusqu'à ce qu'on rencontre un poste libre
- On copie le tableau donneur à partir de cet endroit.
Sub FreeCell()
  
  'Tableau n° 1 à copier dans tableau n° 2
  Dim I1         As Integer
  Dim Tablo1(9)  As String
  
  'Tableau n° 2 recevant les données de tableau n°1
  Dim I2         As Integer
  Dim Tablo2(99) As String
  
  'Recherche du premier élément libre dans tableau n° 2
  For I2 = 0 To 99
    If Tablo2(I) = "" Then Exit For
  Next I2
  
  'Copie de tableau n°1 dans tableau n°2 à partir du poste libre
  For I1 = 0 To 9
    Tablo2(I2) = Tablo1(I1)
    I2 = I2 + 1
  Next I1
  
End Sub
Evidemment, il faut compléter, gérer les éventuels débordements d'indice, etc.
Ajx.
0
Armojax Messages postés 1855 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 novembre 2022 1 517
8 juin 2005 à 08:38
... petite correction passée à l'as en recopiant :
Dans le If..., l'indice est I2, pas I, évidemment ! :o)
Ajx.
0