Utiliser une variable dans une fonction range.value

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Utiliser une variable dans une fonction range.value

nathanc

Voila, je souhaiterai utiliser la valeur d'une variable dans une fonction range.
Comment puis je faire ?

Publicité

nathanc

je viens de trouver, je publie mon code qui sélectionne aussi la premiere ligne non utilisée d'une colonne si cela peut servir a quelqu'un !

Sub Derniereligne()
Static Derniere_ligne As Long
Static a As Long
Derniere_ligne = ActiveSheet.Columns.End(xlDown).Row

a = Derniere_ligne + 1
MsgBox Premiere_ligne
Range("A" & a).Value = UserForm3.TextBox1.Value
Range("B" & a).Value = UserForm3.TextBox8.Value
Range("C" & a).Value = UserForm3.TextBox3.Value
Range("D" & a).Value = UserForm3.TextBox4.Value
Range("E" & a).Value = UserForm3.TextBox5.Value
Range("F" & a).Value = UserForm3.TextBox6.Value
Range("G" & a).Value = UserForm3.TextBox7.Value
Range("H" & a).Value = UserForm3.TextBox9.Value
Range("I" & a).Value = UserForm3.TextBox10.Value

MsgBox "Vous avez bien rajouté" & Texbox1.Value & " à la liste des sous-traitants!"
Unload UserForm3

nchevrier

Voila bonsoir,

J'ai un cht'i souci, je cherche, je farfouille mais bon ca fait des années que j'ai pas touche a du VB et la je coince

mon pb est le suivant sur la feuille 1, en fonction d'un test, je veux copier la valeur de ma cellule C3, sur la feuille 2, dans la cellule D16.

Je vous mets tout le programme, faut dire, il y a pas gd chose non plus :

Code :

Sub Bouton_QuandClic()
Dim colonne1 As Integer
Dim colonne2 As Integer
Dim test1 As String
Dim test2 As String
colonne1 = 3
colonne2 = 16
' Bouton_QuandClic Macro
' Macro enregistrée le 14/05/2010 par Admin
'
Sheets("Feuil1" ).Select
If Range("B3" ).Value <> 0 Then
'Copie du tarif
Sheets("Feuil1" ).Select
Range("C" & colonne1).Select
Selection.Copy
Sheets("Feuil2" ).Select
Range("D" & colonne2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub

Si quelqu'un peut m'aider. Ca serait tres charitable.

Merci d'avance

nchevrier

Pourquoi faire complique quand on peut faire simple.

Code :

Sheets("Feuil1" ).Select
Range("A" & colonne1).Select
test1 = Range("A" & colonne1)
Selection.Copy
Sheets("Feuil2" ).Select
test2 = Range("A" & colonne2)
Range("A" & colonne2) = test1

Reste plus qu'àgenerer ma boucle de fin de test.

Merci mais c'est OK

kiki29

Salut, la syntaxe pourrait se resumer à qqch comme

Worksheets("A" ).Range("A1:D4" ).Copy Destination:=Worksheets("B" ).Range("E5" )

A adapter à ton contexte , en évitant les select inutiles et couteux en temps

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Utiliser une variable dans une fonction range.value

Sujets relatifs
Chiffrement. Quel bibliothèque (pour C#) ou comment utiliser gpg?	Incrémentation de variable
Problème fonction opendir	Fonction de saisie
Question : quelles technologies utiliser pour mon problème ?	Creer mail en fonction du nom et prenom AD
Ma variable publique est désinitialisée par mon UserForm	[Shell] : récupération de variable via awk
Appel de fonction	fonction statistique [VBA] [Help]
Plus de sujets relatifs à : Utiliser une variable dans une fonction range.value

Page générée en 0.034 secondes