If not en VBA

[flo2002]

Re à tous!

J'ai rapidement entendu parler de cette fonction en VBA. Personellement, j'ai utilisé un If et donc je voudrais y ajouter une condition qu'il ne prennent pas les vide!

Ca doit etre faisable et vos lumieres sont les biens venus!
merci

 

[ERIC S]

Bonjour flo

if not range('A1').value='' then

veut dire si A1 vide est faux..

A+

 

[flo2002]

Bonjour Eric,

voici mon code actuel:
Dim c1 As Range, c2 As Range

Dim Exist As Byte
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets('IRP')
Set ws2 = Sheets('Extract_AFU')


For Each c2 In ws2.Range('x2:x' & ws2.Range('x65536').End(xlUp).Row)
Exist = 0
For Each c1 In ws1.Range('d8:d' & ws1.Range('d65536').End(xlUp).Row)

If c2.Value = c1.Value Then Exist = 1
Next c1

If Exist = 0 Then
With ws1
.Range('d' & .Range('d65536').End(xlUp).Row + 1) = c2
End With
End If
Next c2

je pense que je devrais le mettre sur
If c2.Value = c1.Value
qu'en pense tu?

 

[ERIC S]

re

si je comprends bien

tu as une liste en X et une en D

si en d tu ne trouves pas une valeur de X tu l'ajoutes à la suite

quel est ton pb?

A+

 

[flo2002]

re,
Je voudrais qu'il ignore la cellule vide car je ne veut pas qu'il me l'extrait du fichier.
en faite, à la fin de la macro, je me retrouve avec une ligne vide à la quel j'ai ajouter des formules par le code suivant:

Dim derligne1 As Long, derligne2 As Long, derligne3 As Long
Dim derL&



Sheets('IRP').Select


derligne1 = Range('a65536').End(xlUp).Row
derligne2 = Range('d65536').End(xlUp).Row
derligne3 = Range('d65536').End(xlUp).Row

Range('e7:al7').Copy
Range(Cells(derligne2 + 1, 5), Cells(derligne1 + 1, 38)).Select

ActiveSheet.Paste
Application.CutCopyMode = False



Range('a7:c7').Copy
Range(Cells(derligne3 + 1, 1), Cells(derligne1 + 1, 3)).Select

ActiveSheet.Paste
Application.CutCopyMode = False
calculate
Rows(7).Hidden = True

merci

 

[ERIC S]

re

où est ta cellule vide ? je ne comprends pas trop

A+

 

[flo2002]

en faite je compare deux code, un en D de la feuille RF et un en X de la feuille extract. Il m'ajoute ceux qu'il ne trouve pas à la suite de la colonne D.

Ensuite, je colle des formules la ou j'en ai besoin. mais je pense que c'est la que j'ai un decalage. De plus, quand je n'ajoute pas de code, il me met comme meme une ligne de formule.

C'est relativement ennuyeux!

Une idée?

 

[ERIC S]

re

tes formules à copier se trouvent en ligne 7 ?

derligne3 et derligne 2 sont pareils, pourquoi 2 variables ?

où as -tu le plus de données ? en A ou en D (je suppose que c'est en D puisque tu as ajouté les codes manquants

A+

 

[flo2002]

Ma ligne cachée 7 est belle et bien celle des formules.
La colonne X est celle la plus remplit et vient se déverser dans D.

Derlign 2 et 3 sont identique car au debut j'avais une autre maniere de les definir. Cependant, je les garde car je trouve cela plus simple.

 

[ERIC S]

re

si oui essaie

Sheets('IRP').Select

derligne1 = Range('a65536').End(xlUp).Row
derligne2 = Range('d65536').End(xlUp).Row

Range('e7:al7').Copy
Range(Cells(derligne1 + 1, 5), Cells(derligne2 , 38)).Select

ActiveSheet.Paste
Application.CutCopyMode = False

Range('a7:c7').Copy
Range(Cells(derligne1 + 1, 1), Cells(derligne2 , 3)).Select

.....

 

[ERIC S]

re

quand je disais colonne la plus remplie, c'était sur la feuille IRP (D par rapport à A)

 

[flo2002]

Re,
en faite, il m'ajoute tourjour une ligne vide (avec des formules mais sans code).
Cependant merci comme meme je vais laisser comme ca et on suprimmera la ligne vide.

 

[ERIC S]

re

dans le code que je t'ai proposé, j'utilise derligne2 et non derligne2+1 comme tu le faisais, il n edevrait pas y avoir de ligne supplémentaire maintenant

A+

 

[flo2002]

re,

derligne1 = Range('a65536').End(xlUp).Row
derligne2 = Range('d65536').End(xlUp).Row
derligne3 = Range('d65536').End(xlUp).Row

Range('e7:al7').Copy
Range(Cells(derligne2 + 1, 5), Cells(derligne1, 38)).Select

ActiveSheet.Paste
Application.CutCopyMode = False



Range('a7:c7').Copy
Range(Cells(derligne3 + 1, 1), Cells(derligne1, 3)).Select


mais il me met toujours la ligne vide...

merci comme meme ca fonctionne sans ca c'est pas trop grave!