Help me , Code vba en Si Résolu

Question

Bonjour,  

Je souhaite faire un code qui permet de faire une formule Si toute les 10 lignes (3, 13, 23, 33, 43 ...) sur 50 colonnes 

Je ne m'y connais pas du tout en VBA. 

Le code doit remplacer la formule 
(ligne 3) =SI(A2>A1;"RETARD";"BIEN") 
(Ligne 13) =SI(A12>A1;"RETARD";"BIEN") 
ect... 

Pour le moment j'ai fais ca mais ca ne marche pas : 

Sub Copieformule() 

Dim i& 
For i = 1 To 50 
Cells(3, i).FormulaR1C1 = "" 
If R1C > R2C Then 
R3C = "RETARD" 
Else: R3C = "BIEN""" 
End If 
Next i 

End Sub 

MERCI Beaucoup

Configuration: Windows XP / Internet Explorer 7.0

ccm81 · Answer

bonjour
quelque chose qui devrait ressembler à ça (à tester sur une copie ...)

Const lideb = 3
Const codeb = 1
Const cofin = 50
Dim li As Long, lifin As Long, co As Long
lifin = Range("A65536").End(xlUp).Row
For li = lideb To lifin Step 10
  For co = codeb To cofin
    If Cells(li - 1, co) > Range("A1") Then
      Cells(li, co) = "RETARD"
    Else
      Cells(li, co) = "BIEN"
    End If
  Next co
Next li
bonne suite

Christof422 · Answer

Dim i, j As Integer

For i = 0 To 50
For j = 3 To 43 Step 10

If Cells(j - 1, 1) > Cells(1, 1) Then
Cells(j, i) = "RETARD"
Else
Cells(j, i) = "BIEN"
End If


Next j

Next i

kev1mor1 · Answer

Je vous remercie, j'ai réussi a trouver le moyen de le faire avec l'enregistreur de macro sur excel. Je garde vos solutions "sous le coude".

Je vous remercie d'avoir repondu si rapidement. Contrairement a d'autre site ou j'attends encore une reponse depuis 1 semaine.

Cordialement

kev1mor1

kev1mor1 · Answer

Bonjour, 

j'ai un autre problème. 

Je souhaite réaliser un publipostage ou les données sont dans un fichier Excel. Jusque la pas de probleme. 

Seulement j'aimerai que sur ce publipostage, un graphique soit intégré de facon à se modifier selon le destinataire. Chaque destinataire a des notes qui sont sur la base de données. 

J'arrive à créer un graphique, à modifier les données de facon à ce qu'ils aillent chercher les données dans la base mais ce que je n'arrive pas c'est à inserer sur le fichier excel (les données du graphique) le champ de fusion "NOM_FACTURATION" qui est le nom du destinataire. 

J'espere avoir été assez clair et que vous pouvez m'aider. Ca finaliserai une grande partie d'un boulot de plus d'un mois. 

Merci beaucoup 

Kev1mor1

Help me , Code vba en Si

4 réponses

Discussions similaires

Newsletters