Sujet Précédent Sujet Suivant

SVP aidez moi :Colonnes EXCEL

Fermé
ruth - 28 oct. 2005 à 10:00
Armojax Messages postés 1860 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 2 octobre 2024 - 28 oct. 2005 à 14:34
Bonjour à tous :
svp j'ai une feuille excel contenat une colonne "myCol" contenant les connées:
10
20
30
40
50

je souhaite remplacer chaque ligne contenant x par :
fonction1(x)
fonction2()
comment faire?
NB:fonction2() peut etre placer dans la ligne suivante :
je souhaite donc obtenir


fonction1(10)
fonction2()
fonction1(20)
fonction2()
fonction1(30)
fonction2()
fonction1(40)
fonction2()
SVP comment faire par code VBA (sous excel)?
merci
Ruth

1 réponse

Réponse 1 / 1
Armojax Messages postés 1860 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 2 octobre 2024 1 528
28 oct. 2005 à 14:34
Bonjour ruth,

Pour l'exemple ci-dessous, j'ai :
- "mycol" est le nom de la colonne qui contient les données
- les données commencent en ligne 1

Selon ton cas, tu adaptes...
Sub AllonsY()
  Dim I     As Long
  Dim NbLig As Long
  Dim NoCol As Integer
  NbLig = Range("mycol").End(xlDown).Row
  NoCol = Range("mycol").Column
  For I = NbLig To 1 Step -1
    Cells(I * 2, NoCol).Value = "fonction2()"
    Cells(I * 2 - 1, NoCol).Value = "fonction1(" & Cells(I, NoCol).Value & ")"
  Next
End Sub
0