Macro avec des conditions

bonjour a tous

voilà mon soucie

dans la formule suivante le débogeur clignote

je vais vous détailler la macro ( mais je ne suis pas doué)

Macro faite par Bigdaddy154

Sub lignevideessai()

With Sheets("Feuil1")

Set plage = Range("c8:c83" & Cells(Rows.Count, 1).End(xlUp).Row) ------ recherche une cells vide dans "C3 : C83"

plage.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select -------------- et la selectionne

End With

' recherche ligne vide

Range("c5").ClearContents ------------------efface C5

Range("f5").ClearContents ---------------------------efface F5

dlf = Range("c" & Rows.Count).End(xlUp).Row------------- ici tout semble correct

For I = 8 To dlf -------------- la boucle

If Range("c" & I) = "" Then- ---------- passe la condition , puis passe en End If reviens et s'arrête débogage ??

If Range("f10") = "" Then ------------- la 2eme condition n'est pas correcte car elle fait ref a une cells fixe

et celle-ci doit être variable (toujours en colonne F mais a des ligne différente qui change en fonction de la dernière cells vide en C

Range("c5") = Range("c" & I - 2) -------------- le reste est bon et semble fonctionné

Range("f5") = Range("f" & I - 2)

End If

Exit Sub

End If

Next I

End Sub

je suis comme ma boucle For I , je tourne pas rond .

merci de votre aide

Bonsoir

Joan066 a écrit :

le débogeur clignote

Quel est le message d'erreur ?

Il faudrait fournir le fichier en cause

Tu y indiques les opérations à faire pour arriver au bug

bonjour Banzai

oui en effet je suis désolé , je vous fourni le tableau

merci d'avance de toute l'aide que vous m'apporterai

cordialement

Bonjour

A quoi sert cette partie ?

  With Sheets("Feuil1")
    Set plage = Range("c8:c83" & Cells(Rows.Count, 1).End(xlUp).Row)
    plage.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
  End With

Tu ne t'en sers pas après

A tester

Banzai64 a écrit :

Bonjour

A quoi sert cette partie ?

  With Sheets("Feuil1")
    Set plage = Range("c8:c83" & Cells(Rows.Count, 1).End(xlUp).Row)
    plage.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
  End With

Tu ne t'en sers pas après

A tester

Bonjour , la commande sert a chercher la dernière cellule vide du tableau qui peut changer au fur et a mesure des participant au tournoi . Une fois les calculs fait, je souhaiterai imprimer le tableau sans les cells vides . ci joint un tableau ,je vais essayer de t'expliquer .

cordialement

Bonjour

N'appuie pas sur "Citer" pour répondre à un message, cela encombre le post pour rien

Tu as un bouton "Répondre" en bas à gauche du dernier message

Oui je sais qu'elle cherche la première cellule vide, mais tu n'utilises pas cette information dans la macro, alors à quoi elle sert ?

J'ai modifié la macro, elle recopie les données (si besoin) de tous les tours

A vérifier

elle me sert a trouvé la dernière ligne car le tableau original qui commence a la ligne 8 et au maxi 156 , c'est pour imprimer par la suite le tableau sans les cells vides .

Je te remercie de ton aide ,car ce n’était pas évident voire impossible pour moi de trouver l'écriture du programme VBA Macro .

Cordialement