remplacer les formules Excel =si(X;Y) par une macro

[CHTING]

Bonjour à tous,

J'ai créé un questionnaire (case à cocher avec une macro double clic = X)
Actuellement, je transfert les données cochées dans un tableau situé sur une autre feuille du fichier Excel par des formules =si(X;Y).
Je souhaite remplacer ces formules par une macro.
Pour plus de claireté, je vous joint un exemple.

par avance,
Merci.

 

[JBARBE]

Re : remplacer les formules Excel =si(X;Y) par une macro

Bonjour à tous,
peut-être ceci :

Pour la même feuille 1

Option Explicit

Sub essai()
Dim i As Long
Sheets("Feuil1").Activate
 For i = 3 To 65000 Step 3
  If Cells(i, 3) = "" Then Exit Sub
  If Cells(i, 2) <> "" Then
    Cells(i, 9) = Cells(i, 3)
  End If
  If Cells(i, 5) <> "" Then
    Cells(i, 10) = Cells(i, 6)
  End If
 Next i
End Sub

De la Feuille 1 vers la feuille 2 ( autre feuille)

Option Explicit

Sub essai2()
Dim i As Long
Sheets("Feuil1").Activate
 For i = 3 To 65000 Step 3
  If Cells(i, 3) = "" Then Exit Sub
  If Cells(i, 2) <> "" Then
   Cells(i, 3).Copy Sheets("Feuil2").Cells(i, 9)
  End If
  If Cells(i, 5) <> "" Then
  Cells(i, 6).Copy Sheets("Feuil2").Cells(i, 10)
  End If
 Next i
End Sub

 

[CHTING]

Re : remplacer les formules Excel =si(X;Y) par une macro

Bonjour JBARBE et merci.

C'est parfait.