chercher la premiere cellule vide d'une plage aléatoire

[alfazoulou]

Bonjour,
comme indiqué dans le titre j'ai une macro qui implique deux feuilles, "données du projet" et "avenant".
le code doit:
1/ chercher et sélectionner dans la plage nommée "liste_tranches" de la feuille "données du projet" le texte écrit dans la cellule nommée "tranche_avenant" de la feuille "avenant"
2/ trouver la première cellule vide des colonnes G,H,I sur la ligne de la cellule sélectionnée
3/ inscrire dans cette cellule la somme contenue dans la cellule "montant_total_avenant" de la feuille "avenant"
Merci

 

[Papou-net]

Re : chercher la premiere cellule vide d'une plage aléatoire

Bonjour alfazoulou,

Vérifie si les macros modifiées comme suit répondent à ton besoin :

Public Cell As Range

Private Sub CommandButton1_Click()

Set Cell = Sheets("données du projet").Range("liste_tranches").Find(Sheets("avenant").Range("tranche_avenant").Value, LookIn:=xlValues, lookat:=xlWhole)
If Cell Is Nothing Then Exit Sub
Call copie

End Sub

Private Sub copie()
Dim Adr As String, Msg As String, Col As Integer

With Sheets("données du projet")
  For Col = 7 To 9
    If .Cells(Cell.Row, Col) = "" Then Adr = .Cells.Address: Exit For
  Next
  Select Case Col
    Case 7
      Msg = "Le montant TTC de l'avenant sera ajouté à la facture"
    Case 8
      Msg = "Il existe déjà un avenant à ajouter à cette facture, le montant TTC de l'avenant sera ajouté à la facture"
    Case 9
      Msg = "Il existe déjà deux avenants à ajouter à cette facture, le montant TTC de l'avenant sera ajouté à la facture"
  End Select
  If Msg = "" Then Exit Sub
  MsgBox Msg
  .Cells(Cell.Row, Col) = [montant_total_avenant].Value
End With

End Sub

Espérant avoir répondu.

Cordialement.

 

[alfazoulou]

Re : chercher la premiere cellule vide d'une plage aléatoire

Excellent !!!
Merci beaucoup

 

[alfazoulou]

Re : chercher la premiere cellule vide d'une plage aléatoire

Une petite précision cependant.
Si les colonnes ne sont plus contiguës comme G, H et I, que faut il écrire à la place de : For Col = 7 To 9 ??

 

[alfazoulou]

Re : chercher la premiere cellule vide d'une plage aléatoire

j'ai essayé For Col = (7,9,11) qui ne fonctionne pas

 

[Si...]

Re : chercher la premiere cellule vide d'une plage aléatoire

salut

essaie : For col = 7 To 11 Step 2

 

[alfazoulou]

Re : chercher la premiere cellule vide d'une plage aléatoire

ça marche Merci