Discussion :

[AnneB]

Bonjour,

Actuellement j'ai une fonction qui trouve la derniere case non vide dans une plage passée en paramètre de la fonction et qui retourne la chaine de caractères qui s'y trouve.

Je voudrais compliquer un peu cette fonction en ajoutant une condition.
En effet, je souhaite que cette chaine non vide soit retournée uniquement si la case se trouvant deux cases à droite de celle ci est vide. sinon la chaine retournée sera la chaine vide.
J'ai donc pensé à passer en paramètre de la fonction la deuxième plage qui est la même plage que la première mais en décalé de deux cases à droite.
Et je me suis dit que à chaque fois que j'analyse le contenu d'une case de ma plage1, il faut que je puisse accéder à la case de la plage2 qui correspond.
Mais je vois pas trop comment faire pour ca.

Ma fonction actuelle est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function IdEmprunteurActuel(plage1 As Range) As String
    Dim Cel As Range
    IdEmprunteurActuel = ""
    Dim index As Integer
    index = 0
    Dim trouve As Boolean
    trouve = False
    'Parcourir toute les cellules de la plage
    For Each Cel In plage1
        If trouve = False Then
        
            If Not Cel.Value = "" Then
                index = index + 1
            End If
            If Cel.Value = "" Then
                trouve = True
            End If
        
        End If
    Next Cel
    If trouve = False Then
        IdEmprunteurActuel = ""
    End If
    If trouve = True Then
        If Not index = 0 Then
            IdEmprunteurActuel = plage1(index, 1)
        End If
        If index = 0 Then
            IdEmprunteurActuel = ""
        End If
    End If
End Function

Dans la partie en bleu je voudrais faire la chose suivante (écrit en rouge dans le code ci-dessous) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function IdEmprunteurActuel(plage1 As Range, plage2 As Range) As String
....

Dim Cel2 As Range
....

For Each Cel In plage1
        Cel2 = next cell de plage2
        If trouve = False Then
        
            If Not Cel.Value = "" Then
                index = index + 1
            End If
            If Cel.Value = "" Then
                If Cel2.Value = "" Then
                      trouve = True
                End If
            End If
        
        End If
    Next Cel

....
End Function

Vous voyez comment faire ?

[zyhack]

Bonjour

J'ai eu un de mal à comprendre mais je tenir le bon bout

essaye ceci, un peu modifié et oh combien simplifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function IdEmprunteurActuel(plage1 As Range) As String
    Dim Cel As Range
    'Parcourir toute les cellules de la plage
 
    For Each Cel In plage1
        'quand on trouve la premiere valeur vide
        If Cel.Value = "" Then
          ' si la case 1 ligne au dessu et 2 a gauche est vide
          If Range(Cel.Address).Offset(-1, 2).Value = "" Then
            IdEmprunteurActuel = Range(Cel.Address).Offset(-1, 0).Value
          Else
            IdEmprunteurActuel = ""
          End If
          Exit For
        End If
    Next
End Function

il y a moyen de faire mieux mais je ne connais pas tous les tenants et aboutissants

bonne journée

[Oliv-]

Salut,
Ta fonction me semble bien compliquée et par sûr que ca marche toujours si tu as des vides dans ton range par exemple.

Ce qui est important de savoir c'est si ton range est sur 1 colonne (utilises End(xlUp)
) ou 1 ligne End(xlToLeft)
ou sur plusieurs lignes et colonnes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function IdEmprunteurnew(plage1 As Range) As String
Dim plage2 As Range
MsgBox plage1.Address
DernièreCellule = Split(plage1.Address, ":")(1)
Set plage2 = Range(DernièreCellule).End(xlUp)
plage2.Interior.ColorIndex = 6
End Function

Pour vérifier une autre cellule c'est effectivement OFFSET.

[AnneB]

Je ne connais pas du tout le VB lol
En fait le je fais des petites macros pour un fichier excel pour les emprunts de jeux à mon CE....
Donc je me prend pas trop la tête non plus lol
Par contre j'ai lu ce que tu as mis dans ta fonction Oliv- et j'ai rien compris

Alors je dirais que ca va aller comme ca pour le moment... Mais dès que j'ai envie d'apprendre bien plus sérieusement le VB je regarderais tout ca de plus près (soit dit en passant ma fonction ne me parait pas si compliquée que ca) lol

Merci encore

A+

[cafeine]

Hello,

très schématiquement ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if range(Plage).SpecialCells(xlCellTypeBlanks).Cells(1,1).Offset(-1,2)<> "" then
  truc = range(Plage).SpecialCells(xlCellTypeBlanks).Cells(1,1).Offset(-1,0)
else
  truc = "rien"
end if

[AnneB]

Merci pour ton aide !

Je n'ai pas essayé ta solution car je viens d'en trouver une autre qui marche, et que entre temps je n'avais pas regardé sur le post (je pensais pas avoir une réponse si rapide)....

Donc à tout hasard, voici ma solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function IdEmprunteurActuel(plage1 As Range, plage2 As Range) As String
    Dim Cel As Range, index As Integer, trouve As Boolean, a As Long, b As Long
 
    Dim arrayPlage(), x As Long, y As Long
    arrayPlage() = plage1
    Dim arrayPlage2()
    arrayPlage2() = plage2
 
    'Parcourir toute les cellules de la plage
    For x = LBound(arrayPlage) To UBound(arrayPlage)
        For y = LBound(arrayPlage, 2) To UBound(arrayPlage, 2)
 
            If trouve = False Then
 
                If Not arrayPlage(x, y) = "" Then
                    If arrayPlage2(x, y) = "" Then
                        a = x: b = y
                        trouve = True
                    End If
                End If
 
            End If
 
        Next
    Next
    If trouve = False Then
        IdEmprunteurActuel = ""
    Else
        IdEmprunteurActuel = arrayPlage(a, b)
    End If
 
End Function

[zyhack]

WOUAH ça me parait bien compliqué pour quelque chose de si simple mais si ça marche c'est l'essentielle.

bravo pour la perspicacité.