XL 2010 Verif fonctionnement vba

[herve62]

Bonsoir
J'ai un gros doute sur le fonctionnement de mon EXCEL ??
Pourriez vous tester cette appli chez vous
Lancer USF en Bdd entrer par ex. en LOCAL VR03 > Deplacer : VR01
Normalement les données de VR03 vont se mettre en VR01 et VR03 s'efface

 

[TooFatBoy]

Bonjour,

Chez moi ça plante parce que les variables lg et col sont vides.

 

[herve62]

Justement c'est là le HIC !!!
Il a fonctionné en pas à pas , mais pas en réel ??? il y a 1h et en changeant le nom du bouton en Valide_click ça plante ????
Ry est vide donc lg et col normal ???? je pige plus ?

 

[TooFatBoy]

Pour info, "VR03" n'est pas trouvé dans la feuille "Entrée".

[edit]
Normal : dans la feuille "Entrée" ce n'est pas "VR03" mais "VRO3"...
[/edit]

 

[TooFatBoy]

Ry est vide donc lg et col normal ???? je pige plus ?

Oui, parce que tu as la lettre "O" majuscule à la place d'un zéro (VRO3 au lieu de VR03) dans ta feuille "Entrée".

Mais bizarrement, même en corrigeant cette coquille, ça plante quand même chez moi car ça me dit qu'il y a des cellules fusionnées, alors qu'il n'y en a pas...

 

[TooFatBoy]

De même, la variable "Destination" est vide à cause du décalage dû au With.


Perso, je commencerais par essayer de remplacer

        If Not Ry Is Nothing Then
            lg = Ry.Row + 1: col = Ry.Column + 1
        End If

par

        If Ry Is Nothing Then Exit Sub
        lg = Ry.Row
        col = Ry.Column

 

[herve62]

Merci Marcel
Oui j'ai aussi trouvé le VR03 et corrigé
Bon on cherche plus , trouvé
C'est pour un gars du forum ici
Il a mis ( parfois ) en destination par ex VR01 donc moi je cherche dans le tableau et donc dans ce cas il y en a 2 !!!!
Déjà au début de son post c'était incompréhensible ( dixit PatrickToulon & Phil69..)
Donc j'essaye de le remettre sur le bon chemin , mais donc comme tu vois quel casse tête !!!

Mais SUBSISTE un GROS PB !!!!!
tout fonctionne via VBA pas à pas mais PAS EN REEL ?????????? ( avec l'USF lancé)
Je mets la dernière version , la Loc se vide mais la destination n'est pas remplie ??? comme VR07 OK en pas à pas mais pas avant en direct !! jamais vu ça
Donc le fichier ou mon Excel ( j'ai eu des soucis ce dernier WE avec)
???

 

[TooFatBoy]

Essaye plutôt ça, si ça te convient :

Private Sub valide_Click()
'
Dim Ry As Range  '( Rayonnage)
Dim RyD As Range

    LocaD = ComboBox1.Value

    With Worksheets("Entrée").Range("A1:W40")
        Set Ry = .Find(LocaD, LookIn:=xlValues)
        If Ry Is Nothing Then Exit Sub
        lg = Ry.Row + 1
        col = Ry.Column + 1

        c = .Cells(lg, col)
        T = .Cells(lg + 1, col)
        Bu = .Cells(lg + 2, col)
        Rd = .Cells(lg + 3, col)
        Re = .Cells(lg + 4, col)
        Pe = .Cells(lg + 5, col)
        Destination = .Cells(lg + 6, col)
        Orientation = .Cells(lg + 7, col)

        .Range(.Cells(lg, col), .Cells(lg + 7, col)).ClearContents

        LocaF = ComboBox2.Value

        Set RyD = .Find(LocaF, LookIn:=xlValues)
        If RyD Is Nothing Then Exit Sub
        lg = RyD.Row + 1
        col = RyD.Column + 1

        .Cells(lg, col) = c
        .Cells(lg + 1, col) = T
        .Cells(lg + 2, col) = Bu
        .Cells(lg + 3, col) = Rd
        .Cells(lg + 4, col) = Re
        .Cells(lg + 5, col) = Pe
        .Cells(lg + 6, col) = Destination
        .Cells(lg + 7, col) = Orientation

    End With

End Sub

ps : il parait que passer par un tableau va plus vite que de mettre les valeurs de cellules (contiguës) les unes à la suite des autres dans différentes variables pour les recopier ensuite dans d'autres cellules (également contiguës).

pps : il y avait un problème avec le .ClearContents qui plantait. J'ai corrigé.

 

[TooFatBoy]

Donc j'essaye de le remettre sur le bon chemin , mais donc comme tu vois quel casse tête !!!

Oui, effectivement. Mais ce n'est jamais simple de reprendre le code de quelqu'un d'autre.

 

[TooFatBoy]

Je pense qu'il faudrait aussi commencer par vérifier que la destination est bien vide.

 

[herve62]

Juste avant dodo !!

Mais ce n'est jamais simple de reprendre le code de quelqu'un d'autre

Non il n'avait pas mis de code j'ai tout écrit
Ton code fonctionne ( en fait c'est le même ??) en PAS A PAS , mais si je lance l'USF la Loc se vide mais la Destination reste VIDE aussi ?????

 

[herve62]

Je préfère aller me coucher !!!!!!!!!!!!
en relançant l'appli tout fonctionne ???
Mais comme j'ai d'autres anciennes appli qui font idem ( ne fonctionnent plus comme il faut) je vais devoir tout analyser

 

[TooFatBoy]

Avec un test pour savoir si la destination est vide :

Private Sub valide_Click()
'
Dim LocaActu As String, LocaDest As String  ' Localisations actuelle et de destination
Dim RayActu As Range, RayDest As Range      ' Rayonnages actuel et de destination

    With Worksheets("Entrée").Range("A1:W40")

        LocaDest = ComboBox2.Value
        Set RayDest = .Find(LocaDest, LookIn:=xlValues)
        If Not RayDest Is Nothing Then MaReponse = MsgBox("/!\ La destination n'est pas vide !" & vbCrLf & "Continuer tout de même ???", vbYesNo)
        If MaReponse = vbNo Then Exit Sub

        LocaActu = ComboBox1.Value
        Set RayActu = .Find(LocaActu, LookIn:=xlValues)
        If RayActu Is Nothing Then Exit Sub
        lg = RayActu.Row + 1
        col = RayActu.Column + 1

        c = .Cells(lg, col)
        T = .Cells(lg + 1, col)
        Bu = .Cells(lg + 2, col)
        Rd = .Cells(lg + 3, col)
        Re = .Cells(lg + 4, col)
        Pe = .Cells(lg + 5, col)
        Destination = .Cells(lg + 6, col)
        Orientation = .Cells(lg + 7, col)

        .Range(.Cells(lg, col), .Cells(lg + 7, col)).ClearContents

        LocaDest = ComboBox2.Value
        Set RayDest = .Find(LocaDest, LookIn:=xlValues)
        If RayDest Is Nothing Then Exit Sub
        lg = RayDest.Row + 1
        col = RayDest.Column + 1

        .Cells(lg, col) = c
        .Cells(lg + 1, col) = T
        .Cells(lg + 2, col) = Bu
        .Cells(lg + 3, col) = Rd
        .Cells(lg + 4, col) = Re
        .Cells(lg + 5, col) = Pe
        .Cells(lg + 6, col) = Destination
        .Cells(lg + 7, col) = Orientation

    End With

End Sub

 

[TooFatBoy]

Juste avant dodo !!

Non il n'avait pas mis de code j'ai tout écrit
Ton code fonctionne ( en fait c'est le même ??) en PAS A PAS , mais si je lance l'USF la Loc se vide mais la Destination reste VIDE aussi ?????

J'avoue que je n'ai pas vérifié si la destination se remplie bien...et j'ai pensé que j'avais un problème d'indexation des cellules sur la destination, donc j'avais édité le code de #8.
Du coup, je ne sais pas si tu as bien pris le dernier.

Regarde si #13 te convient mieux.


[edit]
LOL C'est n'importe quoi ce que j'ai fait pour le soi-disant test !...
Faut que je corrige ça.
[/edit]

 

[herve62]

On verra demain !! je suis mort
Sinon , je ne sais pas si la destination doit être Obligatoirement vide ? normalement pour moi dans son sujet : Oui , mais comme il est fort brouillon euh ???
On verra déjà ce qu'il va répondre
Bonne nuit