Chercher la derniere valeur sur 3 colonnes

[eduraiss]

Bonjour le forum

voila sur un tableau j'ai des valeurs dans les colonnes D F H le code ci dessous me permet de me placer sous la dernière valeur de la colonne D

Columns(4).Find("*", , , , , xlPrevious).Offset(2, 0).Select

Quel brin de code me faudrait t'il pour me positionner sous la dernière valeur de ses trois colonnes et ensuite retour dans la colonne D sur la même ligne.

Je joins un fichier

Cordialement..

 

[excalibur]

Re : Chercher la derniere valeur sur 3 colonnes

bonjour eduraiss le forum si c est toujours par apport a la colonne h
Columns(8).Find("*", , , , , xlPrevious).Offset(2, -4).Select

 

[wilfried_42]

Re : Chercher la derniere valeur sur 3 colonnes

bonjour edurais

essaye ce code

sub essai()
      dim cold as range, colf as range, colh as range
      set cold = range("D65536").end(xlup).offset(1,0)
      set colf = range("F65536").end(xlup).offset(1,0)
      set colh = range("H65536").end(xlup).offset(1,0)
      if cold > colf then 
             if cold > colh then
                      set colf = cold.offset(0,2)
                      set colh = cold.offset(0,4)
             else
                      set cold = colh.offset(0,-4)
                      set colf = colh.offset(0,-2)        
             end if
      else
             if colf > colh then
                      set cold = colf.offset(0,-2)
                      set colh = colf.offset(0,2)
             else
                      set cold = colh.offset(0,-4)
                      set colf = colh.offset(0,-2)        
             end if
      end if
end sub

code non tester

 

[eduraiss]

Re : Chercher la derniere valeur sur 3 colonnes

Bonjour et merci a tous les deux

Pour excalibur, non les dernières valeurs peuvent être en colonne D ou F ou H
pOUR wilifried_42 le code ne fonctionne pas

Merci a vous

 

[Pierrot93]

Re : Chercher la derniere valeur sur 3 colonnes

BOnsoir Eduraiss, Jean-Pierre, Wilfried

peut être comme ceci :

Dim l As Integer
l = IIf(Range("H65536").End(xlUp).Row > Range("F65536").End(xlUp).Row, Range("H65536").End(xlUp).Row, _
    Range("F65536").End(xlUp).Row)
l = IIf(Range("D65536").End(xlUp).Row > l, Range("d65536").End(xlUp).Row, l)
Range("D" & l + 1).Select

bonne soirée
@+

 

[wilfried_42]

Re : Chercher la derniere valeur sur 3 colonnes

re:

excuse moi eduraiss j'ai oublié les .row

Sub essai()
      Dim cold As Range, colf As Range, colh As Range
      Set cold = Range("D65536").End(xlUp).Offset(1, 0)
      Set colf = Range("F65536").End(xlUp).Offset(1, 0)
      Set colh = Range("H65536").End(xlUp).Offset(1, 0)
      If cold.Row > colf.Row Then
             If cold.Row > colh.Row Then
                      Set colf = cold.Offset(0, 2)
                      Set colh = cold.Offset(0, 4)
             Else
                      Set cold = colh.Offset(0, -4)
                      Set colf = colh.Offset(0, -2)
             End If
      Else
             If colf.Row > colh.Row Then
                      Set cold = colf.Offset(0, -2)
                      Set colh = colf.Offset(0, 2)
             Else
                      Set cold = colh.Offset(0, -4)
                      Set colf = colh.Offset(0, -2)
             End If
      End If
      MsgBox cold.Address & vbCrLf & colf.Address & vbCrLf & colh.Address
End Sub

quand on quitte le boulot de nuit, on ferait mieux de dormir

 

[eduraiss]

Re : Chercher la derniere valeur sur 3 colonnes

Re
Bonjour Pierrot93
Merci a vous je ne sais que choisir cela fontionne parfaitement avec vos programmes

Un trés grand merci

Cordialement

 

[Roland_M]

Re : Chercher la derniere valeur sur 3 colonnes

bonsoir

voir fichier !?

Roland