XL 2016 incompatibilité de type

natorp

XLDnaute Accro

• 18 Juillet 2017

• #2

Bjr sive

Comment est déclarée la variable Lg2 ?

Cordialement, Gérard

 

Vote positif 0 Vote négatif

S

sive91

XLDnaute Junior

• 18 Juillet 2017

• #3

Bonjour,

en Integer en effet mais la Lg2 ne sert il pas qu'a trouver le numéro de la ligne ?

Merci

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Juillet 2017

• #4

Re,
Je ne sais pas à quoi fait référence cette variable, il nous faudrait la totalité du code, ou encore mieux, un bout de fichier avec le code complet

Cordialement, Gérard

 

Vote positif 0 Vote négatif

S

sive91

XLDnaute Junior

• 18 Juillet 2017

• #5

Voici le Code du bouton

VB:

Private Sub CommandButton4_Click()

Application.ScreenUpdating = False
Dim Lg2 As Integer

Worksheets("DIFFERENCE_PA").Range("A:B").Clear


For Lg2 = Sheets("SERIEM").UsedRange.Rows.Count To 2 Step -1
Worksheets("SERIEM").Range("S" & Lg2).Value = "=IF(ISNA(VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],7,FALSE)/VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],6,FALSE)/RC[-8]),""*"",VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],7,FALSE)/VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],6,FALSE)/RC[-8])"
Sheets("SERIEM").Columns("G:G").Copy Sheets("DIFFERENCE_PA").Columns(1)
Sheets("SERIEM").Columns("S:S").Copy Sheets("DIFFERENCE_PA").Columns(2)

If Sheets("DIFFERENCE_PA").Range("B" & Lg2) = "*" _
Then Sheets("DIFFERENCE_PA").Rows(Lg2).Delete
Next Lg2

End Sub

Si ca ne suffit pas je joindrais le fichier ce soir,
Merci encore

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Juillet 2017

• #6

A voir avec un bout de fichier

Gérard

 

Vote positif 0 Vote négatif

S

sive91

XLDnaute Junior

• 18 Juillet 2017

• #7

Voici le fichier

Merci

 

Pièces jointes

• DMC.xlsm

  103.8 KB · Affichages: 26

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Juillet 2017

• #8

Bonjour

Sans regarder le fichier, commence par remplacer Dim Lg2 As Integer par Dim Lg2 As Double (pour une variable de boucle décroissante : … Step -1)

 

Vote positif 0 Vote négatif

S

sive91

XLDnaute Junior

• 18 Juillet 2017

• #9

Bonjour Si, Cela me fait la même erreur,

Merci

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Juillet 2017

• #10

re

En jetant un coup d'œil à ton fichier : le problème vient du code qui est écrit dans une feuille (celle du boton) qui ne correspond ni à la Source ni à la Cible.

Essaie

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Dim L As Integer, Lg2 As Long, De As Worksheet
Set De = Sheets("SERIEM") ‘source
With Worksheets("DIFFERENCE_PA") ‘Cible
.[A:B].Clear
L = De.UsedRange.Rows.Count
For Lg2 = L To 2 Step -1
De.Range("S" & Lg2).Value = "=IF(ISNA(VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],7,FALSE)/VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],6,FALSE)/RC[-8]),""-"",VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],7,FALSE)/VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],6,FALSE)/RC[-8])"
Next
De.Columns(7).Copy .Columns(1)
.Columns(2).Resize(L) = De.Columns(19).Value
For Lg2 = L To 2 Step -1
If .Cells(Lg2, 2) = "-" Then .Rows(Lg2).Delete
Next
End With
End Sub

J’ai supposé que tu voulais copier les valeurs et non les formules (pas adaptées à la cible)

Désolé pour le code mais je n'arrive plus à Insérer...

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 18 Juillet 2017

• #11

bonsoir toutes & tous
apporte rien au post Sorry
plus active sur le forum depuis quelques mois... plus le temps......
seulement pour faire un bisous a mon ami SI
a+ leti
ps: ton code bien peut resoudre le pb... a mon avis enfin ....SI .... j'ai bien compris la demande

 

Vote positif 0 Vote négatif

S

sive91

XLDnaute Junior

• 19 Juillet 2017

• #12

Bonjour

Merci a tous voici la solution

VB:

Worksheets("SERIEM").Range("G2:G" & Lg).Copy Worksheets("PA").Range("A2")
Worksheets("SERIEM").Range("S2:S" & Lg) = Worksheets("SERIEM").Range("S2:S" & Lg).Value
Worksheets("SERIEM").Range("S2:S" & Lg).Copy Worksheets("PA").Range("B2")

If Sheets("PA").Range("B" & Lg) = "*" _
Then Sheets("PA").Rows(Lg).Delete

Ma ligne retournait une formule incompatible avec Integer, du coup j'ai transformé la formule en valeur avant la copie
Worksheets("SERIEM").Range("S2:S" & Lg) = Worksheets("SERIEM").Range("S2:S" & Lg).Value

Bonne soiree

 

Vote positif 0 Vote négatif