Aide VBA

jpb388

XLDnaute Accro

• 14 Juin 2013

• #2

Re : Aide VBA

Bonsoir le forum et bienvenue stpab
oui avec Range.copy et if then
et le dit Charte du forum - A lire avant de poster un petit fichier aurai été le bienvenue pour pouvoir mieux te répondre

 

Vote positif 0 Vote négatif

S

stpab

XLDnaute Nouveau

• 17 Juin 2013

• #3

Re : Aide VBA

Merci pour ta réponse, je t'avoue que je ne sais pas vraiment comment m'y prendre.

J'ai essayer ceci mais il doit manquer plusieurs choses car cela ne marche pas

Sub testCopierCollerValeur()
'
' testCopierCollerValeur Macro
'

Dim i As Integer
Dim N As Integer


For i = 34 To N

Range("E28").Copy

If Range("M34").Select = "=NON(ESTVIDE(M34))" Then
Range(Cells(i, 12)).Paste
Else
Range(Cells(i + 1, 12)).Paste
End If
Next i


End Sub


Pour récapituler

Je veux que en cliquant sur un bouton cela copie la valeur de la case(E28), puis la colle dans une autre case(M34) si elle est vide, si elle n'est pas vide je veut que la valeur de la case(E28) soit coller dans une case inférieur(M35)
Voila j’espère que je suis assez claire,

Merci

 

Dernière édition: 17 Juin 2013

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 17 Juin 2013

• #4

Re : Aide VBA

Bonjour à tous

ceci devrait aller

Code:

Sub testCopierCollerValeur()
 '
 ' testCopierCollerValeur Macro
 '
 Range("E28").Copy Destination:=IIf(Range("m34") <> "", Range("M35"), Range("M34"))
 End Sub

 

Vote positif 0 Vote négatif

S

stpab

XLDnaute Nouveau

• 17 Juin 2013

• #5

Re : Aide VBA

Merci pour ta réponse, seulement je souhaite copier seulement la valeur de la case et non la formule de plus je souhaiterai utilisé une boucle afin de pouvoir traité N valeurs et non 2.

Merci de ton aide.

Cordialement,

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 17 Juin 2013

• #6

Re : Aide VBA

doublon avec le post https://www.excel-downloads.com/threads/copie_colle_valeurvide_ou_non.207341/

Pas hyper cool pour ceux qui essaient de t'aider!

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 17 Juin 2013

• #7

Re : Aide VBA

re
bonjour titiborregan5

1) si tu avais mis ton fichier comme demandé dans #2 j'aurais vu que la cellule contenait une formule
2 )en #3 tu dis

Je veux que en cliquant sur un bouton cela copie la valeur de la case(E28), puis la colle dans une autre case(M34) si elle est vide, si elle n'est pas vide je veut que la valeur de la case(E28) soit coller dans une case inférieur(M35)

Cliquez pour agrandir...

donc ma réponse est conforme a ta demande

3) en #5 que veux tu dire par n valeur puisque c'est toujours la cellule e28 que tu copie sur m35 ou m34

 

Vote positif 0 Vote négatif

S

stpab

XLDnaute Nouveau

• 17 Juin 2013

• #8

Re : Aide VBA

Oui désolé j'ai voulu recommencé une autre discussion pour être plus claire dans ma demande, en tous cas je vous remercie pour votre aide.

Jpb388 désolé de n'avoir pu être clair, j'ai enfin trouver ce que je voulais:

Range("E28").Select
Selection.Copy
If Range("M34") <> "" Then
Range("M65336").End(xlUp).Offset(1, 0).Value = Range("e28").Value
Else: Range("M34").Value = Range("e28").Value
End If
ActiveSheet.Paste


Merci a toi
++

 

Vote positif 0 Vote négatif