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
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
A voir également:
- Aide sur Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique excel - Guide
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
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.
Ajx.
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 SubEvidemment, il faut compléter, gérer les éventuels débordements d'indice, etc.
Ajx.
8 juin 2005 à 08:38
Dans le If..., l'indice est I2, pas I, évidemment ! :o)
Ajx.