Copier coller et additionner une cellule.... fautes d'orthographes certainement

ManuF · 26 Juin 2012

Bonjour,

Dans un même classeur et entre 2 feuilles, je cherche à copier/coller une cellule en fonction de la réponse donnée par une inputbox. Après de longues recherche je n'arrive pas à comprendre pourquoi mon programme ne fonctionne pas.
1/ il ne tient pas compte de la réponse de la inputbox
2/ il copie et colle de manière aléatoire dans l'autre feuille.
Ci après le script:

Code:

Private Sub CommandButton1_Click()


    num = InputBox(" Quel numéro de feuille ?")
    If num = "" Then Exit Sub
    'ActiveSheet.Copy After:=Sheets(num)
    
    
Worksheets("récap").Select

With Worksheets("récap").Range("A:A")
    Set c = .Find(What:=num, LookIn:=xlValues)
    If Not c Is Nothing Then
        
             ActiveCell.Offset(0, 9).Activate
             ActiveCell.Formula = ActiveCell + Sheets("fiche").Range("H43").Value
             
    End If
End With

End Sub

Le code et le bouton se trouve sur la 2ième feuille appelé "fiche"
Merci par avance pour votre aide,

ManuF · 26 Juin 2012

Re : Copier coller et additionner une cellule.... fautes d'orthographes certainement

C'est bon j'ai fini par trouver la bonne syntaxe était :

Code:

Private Sub CommandButton1_Click()

    
    num = InputBox(" Quel numéro de feuille ?", "num")
    If num = "" Then Exit Sub
    ActiveSheet.Copy After:=Sheets(num)
    
    
Worksheets("récap").Select

With ActiveWorkbook.Worksheets("récap").Range("A1:A50")
    Set c = ActiveSheet.Columns(1).Cells.Find(What:=num)
    
    If Not c Is Nothing Then
        c.Select
        c.Select:
             ActiveCell.Offset(0, 9).Activate
             ActiveCell.Formula = ActiveCell + Sheets("fiche").Range("H43").Value
             
    End If
End With

Worksheets("récap").Select

With ActiveWorkbook.Worksheets("récap").Range("A1:A50")
    Set c = ActiveSheet.Columns(1).Cells.Find(What:=num)
    
    If Not c Is Nothing Then
        c.Select
        c.Select:
             ActiveCell.Offset(0, 4).Activate
             ActiveCell.Formula = ActiveCell + 1
             
    End If
End With

End Sub

Copier coller et additionner une cellule.... fautes d'orthographes certainement

ManuF

XLDnaute Nouveau

ManuF

XLDnaute Nouveau

Discussions similaires

Copier coller et additionner une cellule.... fautes d'orthographes certainement

ManuF

XLDnaute Nouveau

ManuF

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency