Help me , Code vba en Si

Résolu
kev1mor1 -  
 kev1mor1 -
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

A voir également:

4 réponses

Réponse 1 / 4
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
1
Réponse 2 / 4
Christof422 Messages postés 871 Date d'inscription   Statut Membre Dernière intervention   212
 
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
1
Réponse 3 / 4
kev1mor1
 
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
0
Réponse 4 / 4
kev1mor1
 
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
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses