corriger un code

[hicham28]

bonsoir a vous,
encore je m'adresse a vous et j'espere avoir votre aide, j'utilise le code suivant pour faire une copie de certains fontions, j'aimerai que la copie prends fin avec la premiere "-" qui se presente au niveau de la colonne AI, et ne pas seulement pour la cellule qui existe sur la colonne AI et qui contient "-"
j'espere avoir votre aide, merci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, cel As Range
Set plage = Intersect(Target, [Code_BANQUE]) 'Zone => plage nommée dans la feuille
If Not plage Is Nothing Then
  Application.EnableEvents = False 'désactive l'action des évènements
  For Each cel In plage
    cel = UCase(cel.Text) 'mise en majuscule
  Next
  Application.EnableEvents = True 'réactivation
End If
Dim Fin As Long, i As Long
If Target.Cells.Count = 1 Then
    Fin = Cells(Rows.Count, 1).End(xlUp).Row
   If Not Application.Intersect(Target, Range("A4:A" & Fin)) Is Nothing Then
        i = Target.Row
        If Range("AI" & i) = "-" Then Exit Sub
        If Range("A" & i).Value <> "" Then
           Range("I1:M1").Copy Range("I" & i)
          Rows(i).RowHeight = 14
End If
End If
End If
End Sub

 

[Paritec]

Re : corriger un code

Bonjour Hicham, le forum
alors relis un peu ta demande STP
tu souhaite quoi au juste car dans une ligne tu dis que tu veux que la copie prenne fin lors du premier "-" et
après
et ne pas seulement pour la cellule qui existe sur la colonne AI et qui contient "-" en rouge cela veux dire quoi ? donc pour toutes les cellule de toutes les colonnes?
dans l'attente de ta réponse
a+
papou 🙂

 

[hicham28]

Re : corriger un code

Bonjour, et merci pour ta réponse, une des cellules de la colonne AI contiennent "-" pour empêcher la copie des fonctions sur le linge qui corresponds a cette cellule,
J’aimerai que la copie ne s'effectuera pas seulement sur ce linge, mais aussi sur les linges au dessous aussi, de la cellule ou il y'as"-", j'espère être un peu mieux claire que avant, et merci a nouveau

 

[Paritec]

Re : corriger un code

Bonjour Hicham,
Alors ton français est très approximatif, ce qui fait que je comprend mal.
Tu veux donc que cela ne copie pas sur toutes les lignes ou il y a "-"
dans la colonne "AI" c'est cela.
a+
papou 🙂