Agrémenter des cellules

BONJOUR

svp

pourriez vous m'aider s'il vous plait

je voudrais agrémenter des cellules en colonnes de 1 .2.3.à.... en commençant par la cellule n°2 de la colonne H

tant que ces cellules contiennent des valeur < à 499

exemple que j'ai réalisé et qui fonctionne à moitié

quelqu'un aurait un peu de temps à me consacrer pour résoudre mon problème

svp merci

Sub agrémenter()

  Range("H2").Select
Do While ActiveCell <> ""
If ActiveCell < 499 Then
                                              ' agrémenter
  ActiveCell.Offset(1, 0).Select

Else

End If
Loop
End Sub

Bonsoir et bienvenue,

je voudrais agrémenter des cellules en colonnes de 1 .2.3.à.... en commençant par la cellule n°2 de la colonne H

tu veux boucler sur les colonnes de"H" à la dernière utilisée ?

Le mieux serait de joindre un fichier, pour bien comprendre

Amicalement

Claude

bonjour

merci a Claude pour la réponse

je panser que l 'es-ample de la macro fourni étai suffisait

pour le fichiers jointe je ne ses pas faire

oui je veux boucler sur la colonnes "H" à la dernière cellule utilise ?

Amicalement

gege-10

Bonjour,

Il y a plusieurs façon de faire,

il faut le fichier !

Claude

bonjour

merci Claude

j'ai jointe le fichiers excel pour que tue puisse regarde

merci pour l'aider

Amicalement

gege-10

Bonsoir,

Même avec le fichier, je ne vois toujours pas ce que tu veux faire !

que veux-tu dire par "agrémenter" exactement ?

précise ta demande

Amicalement

Claude

Bonjour,

je crois deviner ce que tu souhaite,

ici,

1) on calcul le temps chrono (colonne "G")

2) on trie cette colonne

3) on affecte la place du classement (colonne "H")

J'ai mis des ex-æquo pour tester.

Sub Classement() '(place colonne "H")
'Macro par Claude Dubois pour "gerard-10" Excel-Pratique le 18/04/11
Dim Lg%, i%, pL%, Plg As Range
    Application.ScreenUpdating = False
    Lg = Range("a65536").End(xlUp).Row
    Set Plg = Range("a1:t" & Lg)
    Range("g2:g" & Lg) = "=f2-e2"                   'temps chrono
    Range("g2:g" & Lg) = Range("g2:g" & Lg).Value   'en dur

    '--- tri Chrono  colonne "G"---
    Plg.Sort Key1:=Range("g1"), Order1:=xlAscending, Key2:=Range("i1") _
    , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom

    '--- place classement ---
    pL = 1
        For i = 2 To Lg
            If Cells(i, "g") = Cells(i - 1, "g") Then
                Cells(i, "h") = Cells(i - 1, "h")
            Else
                Cells(i, "h") = pL
            End If
                pL = pL + 1
        Next i
End Sub

Amicalement

Claude

bonjour

claude

je voudrai des explication sure se module et a quoi sa sers

svp

Dim Lg%, i%, pL%, Plg As Range

Application.ScreenUpdating = False

Lg = Range("a65536").End(xlUp).Row

Set Plg = Range("a1:t" & Lg)

Range("g2:g" & Lg) = "=f2-e2" 'temps chrono

Range("g2:g" & Lg) = Range("g2:g" & Lg).Value 'en dur

le macro fonctionne super je lai incorporer avec une otre

merci

Bonsoir,

Dim Lg%, i%, pL%, Plg As Range => déclarations des variables

Application.ScreenUpdating = False => fige l'écran

Lg = Range("a65536").End(xlUp).Row => dernière ligne occupée colonne A

Set Plg = Range("a1:t" & Lg) => le tableau entier

Range("g2:g" & Lg) = "=f2-e2" 'temps chrono => formule (heure d'arrivée moins heure départ)

Range("g2:g" & Lg) = Range("g2:g" & Lg).Value 'en dur => même formule (écrite en dur)

Maintenant, si tu ne connais pas le langage VBA, çà ne t'avancera pas beaucoup !

Amicalement

Claude