Help me , Code vba en Si

Résolu/Fermé

kev1mor1 - Modifié par kev1mor1 le 16/06/2011 à 14:03
kev1mor1 - 17 juin 2011 à 11:15

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:

Help me , Code vba en Si
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

4 réponses

Réponse 1 / 4

ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
16 juin 2011 à 14:24

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

Réponse 2 / 4

Christof422 Messages postés 867 Date d'inscription mardi 24 mai 2011 Statut Membre Dernière intervention 8 février 2015 212
16 juin 2011 à 14:29

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

Réponse 3 / 4

kev1mor1
16 juin 2011 à 14:41

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

Réponse 4 / 4

kev1mor1
Modifié par kev1mor1 le 17/06/2011 à 11:15

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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters