Code vs macro

[marleauc]

bonjour excellien,
j'aurais besoin d'un petit coup de main, j'ai un bouton de commande qui une fois appuyer doit valider les entrées des cellules A7:w21, doit également transférer ses entrées vers un autre feuille nommer BD qui débute a la cellule A2


Private Sub Generer_Click()
Dim rep As String, t As Integer, c As Integer
t = Sheets("BD").[A65536].End(xlUp).Row + 1
End sub
mais il semble y avoir un gros problème....
merci de m'orienter
bonne fin de journée

 

[pierreM75]

Re : Code vs macro

dis moi, la case A65537 existe? 😀

 

[ROGER2327]

Re : Code vs macro

dis moi, la case A65537 existe? 😀

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

[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

 

[ledzepfred]

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+

 

[marleauc]

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 ?

 

[ledzepfred]

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)

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+

 

[marleauc]

Re : Code vs macro

merci beaucoup. je teste
cm