Code vs macro

P

pierreM75

Guest

• 29 Juin 2009

• #2

Re : Code vs macro

dis moi, la case A65537 existe? 😀

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Juin 2009

• #3

Re : Code vs macro

pierreM75 à dit:

dis moi, la case A65537 existe? 😀

Cliquez pour agrandir...

Ça peut exister. Tout dépend où.
Pour éviter la moquerie, on peut écrire :

Code:

[COLOR="DarkSlateGray"]t = Sheets("BD").Cells(Sheets("BD").Rows.Count, 1).End(xlUp).Row + 1[/COLOR]

qui est plus passe-partout. Mais je ne pense pas que ce soit pour l'instant le problème de marleauc.​

ROGER2327

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 29 Juin 2009

• #4

Re : Code vs macro

Bonsoir à tous,

ben le gros problème c'est que la procédure de validation s'arrête à la définition de t comme étant la dernière ligne de BD.

Fais une recherche sur le forum concernant le transfert de données et proposes-nous un début de code pour qu'on t'aide à l'adapter, par contre nous dire qu'il y a un gros problème et nous laisser faire tout le boulot, c'est comment dirais-je : un peu "just"

A+

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 30 Juin 2009

• #5

Re : Code vs macro

merci et oui je tiens a m'excuser j'aurais du préalablement y effectuer une recherche.

voici ce que j'ai trouver:
Sub VALIDER()
Sheets("Matrice").Select
Range("A7:AB21").Select
Selection.Copy
Sheets("BD").Select
NewLig = Range("A65536").End(xlUp).Offset(1, 0).Row
Range("A" & NewLig).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

ce qui transfert intégralement, par contre, est-il possible de transférer seulement les cellules remplies ?

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 1 Juillet 2009

• #6

Re : Code vs macro

bonsoir,

adaptation du code que tu as trouvé qui colle en BD les lignes non vides de matrice (copie toutes les lignes ayant une valeur en colonne A)

Code:

Sub VALIDER()
Application.DisplayAlerts = False
Sheets("matrice").Activate
Rows("6:65536").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("A7:AB" & [A65536].End(xlUp).Row).Copy
NewLig = Sheets("BD").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("BD").Range("A" & NewLig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Selection.AutoFilter
End Sub

A associer au bouton valider
A+

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 2 Juillet 2009

• #7

Re : Code vs macro

merci beaucoup. je teste
cm

 

Vote positif 0 Vote négatif