SVP aidez moi :Colonnes EXCEL

ruth -  
Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   -
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
Configuration: pc

1 réponse

  1.
    Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   1 529
     
    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